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1970 



/rOCLl2.37 
/CCPVRiGMT 

FlXMi?! 
riXMPi 
tIXm;?! 
riXMsl 
rixv.iji 

FIXmpI 

riXMRl 

FNORb70'33 

TEXTaP 

FXlT¥l? 

FINT^JMS I 7 

SMP«6l01 

/MISCELLANEOUS 

• I 



• 



DIGITAL EOutPME'vT CC^Pi 

PPOw»500e/PSEuDC-rLOATING POr\T I\'ST9UCT10NS, 
r4O6=100e 

rHUL«4a0e 

FOIV'JBP? 
FPUT«6000 



MAY:>iAPD» MASS, 01754 



lwetmp; 



JMP 1 



DOtjR 
13 

100 



OOTjP» 

P13, 

C100, 

CDr«700? 

TPnT 
/AUTO-i\OEX 







ITEMS 
• ♦2 

INTIRPT 



/IN-TERRUPT PROCESSOR ENTRY 



(LOC •7) 



/USED For oebucging 

/CONSTANT 
/CONSTANT 

/TEXT rjELD MOi 

/PROGRAM FIELD NOt 

/(XbMEM) - OPR 

/ADDRESS or FLOATING POINT INTERPRETER, 
REGISTERS - <STaRT OF SAVE By OUAO) 
AXIv, /STORAGE INDEX (LOC •U) 
XRT, /EXTRA XP 
XRT2, /EXTRA XR 
POLXRi BECIN»1 /PusH00w^' LIST INDEX REGISTER. 
FLTXR* I09Ur»l /XR FOR FLOATING POInT 
FLTXR2, /EXTRA FOR F.P. 
TELSWf HLT /TELETYPE U PROGRESS SWITCH 
TEXTB"'.' /TEXT POINTERS (LOC "IT) 
AXOUTi FRSTX /OUTPUT INDEX 
XCT. 3 /UNPACK SWITCH 
GTEv, (? /UNPACK STORAGE 
PCi FLTZER /PROGRAM COUf'TER 

tmisln. /LINE Pointer from 'fInolN' 

TMlsoP, £■ /CURRENT 'EVAL' OPERATION 

lastln, /SACK Pointer from 'fInoln* 

DEBgSW, 1 /DEBUG SWI^CJ ) NON^iERO FOR LITERAL. 

PACkST, V" /RUaoUT PROTECTION 

pTi, P /VARIABLE Pointer 

LASTV» PUF9EG /ADDRESS Of LAST VARIABLE 
Tl. " /TEMPORARY REGISTER - MAiN 
T3, ? /TEMP ReGIStfR FOR OnTPUT 
1\9UF, ii /KEYBOARD ImPUT buFFER 

BOTTOM, FEXP.l / •••/LA«!T LCCATlOfw CURRENTLY AVAILABLE IN FIELD HERO •• 

I'JS'jRi 2 /0» CETCI «0 ■ READC 

HiNBUF, ? /HIGM SPEED INPUT BUFFER 

/PACE lERO OF THE 

/FLflATi^G POINT ARITHMETIC INTERPRETER FOR FOCAL 
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56 
57 

53 

59 

61 
62 
63 
6" 
65 
66 
67 
46 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
!J0 

Rl 

82 
83 
84 
8? 
86 
97 
88 
59 
90 

91 
92 
o3 
94 

05 
96 
?7 

96 
99 

i.n 
1-2 
1.-3 

1 •4 
1.'5 

1:6 

i:7 

1'8 

l^9 

11? 
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r".> 4 1 
.' ^^ 4 2 
'/ .' 4 3 

{'.'4 4 

('"4 5 
!!<;M6 

f ?47 

(in51 
':'P'52 

3C-53 



C.'54 

a?56 
£^.^57 

f1?60 
■??61 
;-"'62 
f?63 
71064 

pg65 
P1366 
?i^67 
f»?70 
(»i^71 



J'372 
^?73 

:'?74 

!S?76 

.V77 



••:'M4 

.10 3 J! 
. C-^i} 

66C5 

20F4 
6724 

1?45 
5536 

'^354 

;'00!? 
;•??? 
'.^'56 

,..(;! 00 

7760 

3216 
■•.'300 
2414 
2676 
?666 
0001 
n2l5 
£■'■00? 

t!005 



:'072 

;214 

207 

.l«74 

;.203 

337 

.'212 
1^>177 
.215 
74?2 




EXl. 

AClH, 
AClL. 

ove:ri» 

rLAC». 

EXP, 

HORO, 

LORD. 

0VER2# 

SlGMPi 

FISU. 



/CPE^A\/ STot?AGE 



/rtOATl\3 ACCU^ULATo" 

e /r.A, 

e 



AC«1NS 

2004 
IMTECER.rix 
GETSGNaTAD FLAC*1 

■returNbjmp 

• 54 

/VARIABLES 
SORTCN; 3 



/fUOATlN SI5V 
/NEGATE FLAC SUBROUTINE 
/OUTPUT FORMAT 
/Fix FLAC 



I EFU^J3I 



BY F.P, ALSO) 
LOCATION Or TEXT'." 



INITIALIZED FOR THE DIALOGUE 
/NUV9ER IN TABLE FRO>< SORTC 

lastop; /LAST Operation for eval 

EFOPo, /FUNCTlO^' CODE, 

ATsw, I? /ASK-TvpE Switch 

CNTP. »20 /DELETE AND FRROR C0UNTER(USE0 

STARTV., /«E?JD foR Sk 

BUFR, BUF3EG /NEXT LOCATION IN BUFFER « LAST 

OAOO. 3 /••»»#••» 

XCTiM» 133 /PACK SwITCw 

OuTOEV; XOuTL /POINTER TO OUT, SuB. (OuTL>»FOR OEBuCSlNG 

1NDEV» XI33 /POINTER TO IN, SUB, (I33>«rOR DE9UCCINC 

NACSW» 0031 /NOT ALL ANq/OR GROUP SWlTcH(40ei0f ONEll«ALL J8i«GR0UP) J {(JBaaJ-FOR TSSig 

CHAR, 215 /The most IMPORTANT oEolSTCR 

LINENO; 00?i0 /line Number read by GETLN|(0400>«FOR TSS-S 

GINc. W090S*2 /«6 FOR 4.,WoRO <» CONSTANT 

T2i 2 /TEMP RcGlSTPR - FOR NEW InST, ROUTINES, 

/FOR DcbUGGINCi set OUTl AND I33 INTO OUTDEV AND INDEVJ 

/ALSO PATCH THE ERRQR RcUTIVE P FOUR 

/PAtcHrS PLUS TWO FOR TmE WIGH SPEED READER, 

LIST6«',' /INPUT LIST FOR "SFoiiND". 



LIST7*',' 

P337, 

CLF, 
LIST3«V 
CCR. 
DMPSW» 

/THF Rest 

Mll?(?«, 

P77kVj» 

PER, 

m77, 

P76ei» 



214 

207 



/F.F. 

/BELL 



203 /CONTROl'C for OCBUGGING and TSS8 
337 /LEPT ArR 
212 /L.F, 

/Excretion list 

215 /list BrANChER, 
HLT /(SEARCh CMARACTeR)»VARIaBLE 
FOR TRACE ON, 

OF PARE 2ER0 IS PURE To THE MULTIUSER SYSTEM 



77^W /LEFT ';4St< 

256 /PERIOn 

''T? /EXTEND CODE 

7600 /GROUP «ASK 

•20 /CONSTAvT 



TEST 



/rocus..-! 



in 

112 

113 

11." 

115 
U6 
ll7 

lie 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13^ 
135 
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137 
136 
139 
140 
141 
142 
143 
144 
145 
146 

147 
148 

149 

150 
151 
152 
153 

154 
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156 
157 
156 
159 
1*0 
161 
162 
1S3 
164 
155 
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!nv^6 

■."1-7 

nil? 
"Itl 
?\\?. 

•^113 

!>'114 

!ni5 
?ii6 

P1117 
H120 
;»1?1 
PI122 
fll?3 
1^124 
fil?5 
t»l?6 
ni27 

P130 
R131 
P132 
PI133 
Pi34 
pii ;^5 
£^136 
?t?7 



Pt40 



P»141 
P!142 
pi 43 

{'144 

r^l45 



pil46 



C< 47 



-nj 5;; 



■M51 



"152 



177 
,717 

■277 
7776 
7477 

•26S? 
754? 
7522 
7563 
7775 
7773 
7767 

.i077 
■•2?0 
43?0 
25J32 
2157 
5715 
6i?30 
6203 
3140 
3206 
3143 
3216 
25121 
24fi7 



I'.f^Bi 



P177. 

P17. . 

P277. 

n?. 

r^IMJSA, 

C26?. 

m24'-i, 

MCR, 

MFLT. 

m5i 

Mil, 

P77, 

C2«(5, 

P4!?!00, 

FLARoPi 
PTCH, 

double; 

FOUTPUt.FLOUTP 

FI^JPUT; FLINTP 

COMBUF. 

CFRS. 

END. 

ENDT. 

ErUN3i; 

CFRSX# 



177 /STEP M4SK 

17 /'^C'} MASK 

277 /"?*• 

-2 /C0'.ST4-jT 

'•StU /CO-^STAvT 

26P! /ASCII rCR EFRO 

»>24? /SPACE TEST 

«256 /PERIOD TEST 

"215 /c.B. Test 

•WORDS /8 -4 Fn" 4, WORD 

»5 /PAREN TEST 

«ll /PAREN TEST 

77 /RICMT -^ASK 

200 /CO^jSTA\TS 

40(?0 /.MAGSW test constant (for PDPi.5) 

flarg /data address 

chin . /general character input routine, 

MULT2 /MULTIPi Y FlaC BY 2 

/FLOATur, Output 

/FLOATING INPUT 

COmEIN /command buffer START 

FRST /ADDRESS OF DUMMY LINE, 

COmEIN /FIRST LOCATION USED iN eK, 

BUpBeG /start of STORAGE AReA •• 

EFUN3 /FUNCTION RETURN 

FLTZER /POINTER TO ?ERO DATA 



/'FINPUT' USES CHAR AND GETc OR REAOC TO DEVELOP 
/A NUMBER WHICH IS THEN STORED VIA PTl, 
W0RDSi3 /OR 4 
/NEW INSTRUCTIONS! 



4540 


PUSmj"jms i , 


/RECURSIVE SUBROUTINE CALL 


.'521 


XPuSHj 




1413 


POPasTaO I pDLXR/RESTORE AC 


5541 


popj«Jmp I , 


/SUBROUTINE RETURN 


1565 


XPOPJ 




4542 


puSha«jhs i . 


/SAVE Ac 


'477 


XPUSHA 




4543 


PUShFpJms I , 


/SAVE GROUP OF DATA 


534 


PD2 




4544 


POPf'JMS 1 . 


/PESTOPE Cf'OUP 


554 


PD3 




4545 


GETC«JmS I , 


/UNPACK A Character 


2274 


UTRA 


« 


4546 


packc'jms i , 


/PACK A CHARACTER 


?5i2 


PACBUF 




4547 


S0RTJ»JMS i , 


/SORT A\D BRANCH ON AC OR CHAR 


1312 


SORTS 




455"' 


S0RTC"J»'S i , 


/SORT ChAR 


721 


XSORTC 




4551 


PRINTCsjmS I , 


/PRINT AC OR CHAR 


^465 


OUT 




4552 


READC'JMS I . 


/REAQ OaTa I'JTO char AND PRINT 


?157 


ROIV, CHIN 





/rocLis 


37^ 


CIAL13 


V'i33 


llijANw 
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166 




4 553 


PR\'TlN«JMS I , 


/PRINT C<L1NEN0) 


- 167 


r\5Z 


2429 




XPRNT 




165 




<554 


getl.m«j"S i , 


/UNPACK AND FORM A LlNENjMBER 


169 


>l5« 


3:^2 




XGETLN 




170 




4555 


riNDLN«JMS 1 , 


/SEARCH FOR A GIVEN Ll^E 


171 


■ I' 155 


3244 




XFIND 




172 




4556 


E^DLM*JMS ! , 


/INSERT UINc POINTERS 


173 


r^iSft 


236? 




XENOLN 




174 




4557 


RTL6«JMS I . 


/ROTATE LEFT SIX 


175 


7157 


■413 




XRTL6 




176 




456? 


SP''IOP»J"-<S ! , 


/IGNORE SPACES AND LEADING ZEROS 


. 177 


?i6e 


1535 




XSPNOR 




178 




4561 


TESTN'. 


JMS ! . 


/PERIOD! OThERI NUMBER 


179 


5-161 


1546 




XTESTN 




150 




4562 


TSTlP«' 


•JMS 1 , 


/SKIP IF 5<S0RTCN<f ll (I.E. AN L-PAR) 


181 


C162 


2037 




LPRTST 




1B2 




4563 


TSTSRPi 


•JMS I , 


/SKIP IF G(AC> • G(LINENO) 


. ie3 


5!163 


■744 




GRPTST 




13 4 




4564 


TESTC*. 


J'^S i . 


/TERMi \UMBERj Function; letter^- and ign 


185 


f»164 


.7r^P 




XTCSTC 




186 




4565 


DELETEi 


•JMS I , 


/REMOVE OLD TEXT LINE 


187 


("165 


2064 


PSIN, 


XOCLETE 




188 




4566 


EPRor2 


»JHS I , 


/EXCESS SOMETHING ERROR 


139 




4566 


ERR0R3i 


•JMS I , 


/MISCELLANEOUS ERROR 


193 




4566 


E9R0R4 


•JMS I , 


/FORMAT ERRO» 


191 


51166 


2726 




ERR2 




192 






/USED 1 


3Y 8k 




193 






/rocAL 


IS COMMANO/INPUT DRIVER 


194 




^'167 


• 167 






195 


0167 


cm^ 


SUBS2I 





/••••••*• 


196 


fli70 


^000 


LESubS 


i 


/•••»•••• 


197 


0171 


v20e- 


SU9S. 





/••«••««• 


198 


51172 


6163 


LEFPUT 


, LEPUT 


/•••D**** 


199 


PI173 


(-.000 


LESljgS 


. 


/•••i>*»«« 


200 


71174 


7657 


PWAjTi 


WAiT 


/•••••••• 


2n 


3175 


7672 


PCLEAR 


. CLEAR 




202 


fl76 


3601 




BEGIN 


/BECOMES <REC0VR»1) •• 


2?3 


P177 


7610 


START* 


SKP CUA 


/PROGRAM START FROM SELF 


204 


PIS00 


5576 




JMP I , 


«2 /CONSOLE STARTi SWt200, 


2^5 


(«?01 


1137 




tAO CFRSX /!PC> •> 


216 


P!?!?2 


3022 




OCA PC 


/FOR COMMAND MODE 


2^7 


pi??3 


7'^01 




lAC 


/USE ONE IN THE AC TO 


2PS 


P'?04 


315'5! 




DCA DMPSW /JNlT UNPACK AnD TRACE SWiTCHi 


2Ci9 


!1?i?'5 


3C26 




DCa OEBGSW- /ENAPUE TRACE TOR INPUT Of <?), 


210 


e»5?6 


1226 




TAD C0M80T /PROTECT COMMAND BurFER, 


211 


Pi2c7 


3313 




DCA POLXR /NO PATCH TEST, 


2l2 


f!?1? 


3225 




TAO CSTAR /ANNOUNCE PRESENCE 


2l3 


n?!! 


4551 




PRINTC 


/BY TYPING TmE LEAD'IN CHARACTER 


214 


if?i2 


1132 


19AR. 


tAD CQMBUF /1N!TIALI?E COmmaNO BUFFER 


2l5 


1^213 


S^l-s 




DCA AXIN /FOR UNPACKING, 


216 


0214 


3?62 




DCa XCTlN 


2l7 


("JlS 


1132 




tAD C0M9UF /RU90UT PROTECTION 


2l6 


1?16 


3127 




DCA PACKST 


219 


.S»?17 


4552 


ISNORi 


REAOC 


/REAH COMMAND STRING 


220 


f(?3ii 


4547 




SORTJ 
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221 ■•": ^''TS LIST7-1 

222 ,->;:4 -474 INLIST«tIST7 

2?3 .^;?3 4546 paCKC /SAv^ STRING CmarACTE!?, 

2?'' ->??« 5217 jr^B IGNOR 

2?5 ■.;?5 252 CSTAP» 252 /ACK-'C'ILrOGE: ChARACTEs? 

226 ?-'i 3220 COMcicT. C0mE0UT*12 /END OF COMMAND BUfFE^iLESS PROTECtlQ^' CoU'iTV 

227 /C0'1»*An3/I'jPUT PROCESSOR 

2?S -2?7 4546 IRETAji PACKC /STaoT TO PACK C.R, 

229 .'j-'Zi 4546 PACKC /TInISh C.Ri 

230 --JTl 1132 TAD COMeuF /INITIALIZE "TEXTP" 
271 ;';32 .?'>17 GONE, OCi AXOUT /SEThP CURREmT LINE 
2-?2 ?j?3 3>>2'3 OCA XCT 

233 ,'-??4 4545 GETC /REA^i FIRST CHARACTER. 

234 1555 1'735 TAD BOTTOM /INJT PUSH^OOWN-LIST 

235 ?7-$i 3:^13 DCi POUXR 

236 ?-}-i7 456C1 SPfJOR /IGNORE LEADING BLANKS 

237 .-.?4? 4561 TESTN /DOES THC LInE BEGIN WITH i«9? 
236 7541 5362 JMP GiERR /PERIOD sIlLCGAL GROUP i»ERO USAGE 

239 • ??42 5271 jMP INPUTX /NO 

240 ??43 ?326 ISZ DEBGSW /YESiDISaBLE TRACE FOR REPACKING 

241 1544 4554 GETLN /REa^ THIS LINE NUMBER 

242 ^?45 1124 TAT P40B0 /TEST FOR SiNgLE LINE, 

243 ^546 1-^65 TAD NACSw 

244 .'.?47 764?i SEa CLA 

245 ??50 4566 ERR0R3 /ILLEGAL LINE NUMBER ON INPUT 

246 r.251 12i6i?l TAD BUFR /SET POINTERS 

247 ,-.252 3010 OCA AXJN 
249 ?253 3062 DCa XCTIN 

249 r'254 32167 TAD LINENO /SAVE LINE # 

250 ?255 341P1 DCA I AXIN /{X.MEM) 

251 ??56 4563 SPnOR /IGNORE SPACES ApTER LINE NUMBER 

252 {»?57 7410 SKP 

253 ??6e! 4545 GEtC /READ 1ST AFTER LlNENO TERMINATOR, 

254 ??6i 4546 SRETN. PACKC /SAVE TEXT ASO RESTORE DATA FIELD 

255 P262 1366 TAD CHAR /TEST FOR ENn OF INPUT STRING 

256 ??6^ 1116 TAD MCR 

257 f-?64 7640 SiA CLA 

258 ??65 5260 JMP .-S 

259 ??66 4565 DELETE /REMOVE OLO lINE. IF ANY, 

260 ;'567 4556 ENDLN /INSERT KEW LiNE 

261 .i?70 5177 JMP START /POlVTERS MUST BE REINITIALIZED 

262 0371 4540 iNPuTX; PUSHJ /PROCESS IMMEDIATE COMMAND, 

263 "772 .'611 PROC 

264 ^273 1422 TAD I PC /CHECK NEXT lInE (X-MEM) 

265 ,-^574 7451^ SNA /END OF PROGRAM? 

266 7575 5177 JMP START /YES 

267 -?76 3S)22 OCA PC /SAvE NEW LINE NO. 

268 ?j77 i?22 TAO PC /STabT NEW LINE 

269 ?:??!? 7-^01 lAC 

270 P-K^l 5232 JMP GONE /PROCESS OTHER COMMANDS 

271 /TEXT LINE BUFFER FORMAT* 

272 /«1 I POINTER OR ZERO hi LAST 

273 /«2 I lINE^JO 

274 /«3 - i»M*l I TEXT 

275 /i»N I C.R. 
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276 /UlMC NUMBE" formation 

277 -^j.z Z??' XGETlN; Z 

278 .'Jf^J dSt? SPvOR 

279 .M.:'4 I.?66 tAn CHAR 
2=^2" .-3^5 1H2 TAD MjNUSA 
201 ?tj* 765''. SNA CLA 
2P2 .T7.?7 5322 JMP TESTA 
2?3 171'? r-^Zi OCA INSUB 
25< .'311 4771 JMS I LCPM 
235 ,V12 li"47 TAD rLAC*3 
286 .-SIS .:372 AND P774es 
2S7 ?-ii4 i?46 TAO rLAC*2 

288 r»3l5 7643 SEA CLA 

289 .•'Ti6 4566 ERR0R2 

290 .'317 V.M7 tAD FLAC*3 

291 032? 4557 RTl6 

292 .'S?! 7004 RAl 

293 ;i7?2 3367 TESTAi OCa LlNENO 

294 .^-jjs 4561 tESTN 

295 33?'» 4545 GEtC 

296 ^325 4561 TESTN 

297 n326 5340 JMP gERR 

298 :'3?7 5352 JMP CEXIT 

299 {^33? 1054 TAD SORTCN 
3?0 P331 7106 RTl CLL 
331 fi332 Jf54 TAD SORTCN 
3<?2 P133 7004 RAL 
3?3 {<334 1367 TAD LINENO 
33* ?335 3067 OCA LlNENO 
7'^5 5»336 4545 GEtC 
3?6 ?337 4561 TESTN 
3?7 {.340 4566 CERR, ERO0R4 
S^B !^3^1 5352 JMP GEXiT 
3C9 0342 li?54 TAD SORTCN 

310 ?343 1067 TAD LlNENO 

311 ?344 3067 OCA LINENO 

312 ;^345 4545 GETC 

313 ?!346 4561 TESTN 

314 0347 5340 JMP GERR 

315 pjsei 7410 SKP 

316 n351 4566 ERR0R2 

317 P352 7i;if5 CEX1T» CLL 

318 ,^353 1067 TAO LlNENO 

319 ?354 1^4 AND P7600 

320 }'355 764f» SlA CLA 

321 :>396 7/12? CML 

322 fJS? 1067 TAO LlNENO 
3?3 ;>340 i^i AND P177 

324 .-361 746r SNL SZA 

325 it62 4566 GZERR* ERR0R2 

326 v-'j63 764.1 cjA CLA 

327 f^64 i373 TAD P20ZC» 

328 ;'365 7'^2'-^ CMl 

329 ;'566 7/^:4 RAl 

330 H'«67 3f^65 DCa NAGSw 
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/DEVELOP I'.'O. *• "GETLN" 
/IGnhRE LEADING SPACES, 
/"ALL" IS A SPECIAL ARGUMENT, 



/CALL 'GETC FROM 'INPUT' VIA 'DECON' 
/(DECONV - IN FLOAT.) 
/GROUP TOO LARGE? 



/CROUP NUMBER TOO LARGE 



/TEST3 

/READ STEP NUMBER, 

/TEST4, OTHER 

/DOUBLE PERIODS 

/OTHER 

/NUmPER 



/READ SECOND STEP NUMBER, 

/TEST4, OTHER 

/DOUBLE PERIODS 

/OTHER 

/NUMBER 



/TEST FOR CORRECT TER^JNATOR 

/CHECK SIZE 

/. 

/TOO LARGE A LINE NUMBER, 

/CLEAR LINK BIT 

/TEST FOR GROUP NUMBER, 



/REPARE "NAGSW" 

/aiX ■ EBRORllLLEGAL LINE MJ'-SER. 



/F0CL12 


37--' 


ClALlP 


v.. '3 


11-JAN" 


71 


23106 PACE 1»6 


331 


?77? 


?7?2 




JMP I XGETLN 




332 


■'371 


56"? 


LCC'J. 


DECON'V 






333 


^372 


774e 


P774', 


7740 






334 


.VT73 


?3PC 


P2'-'Ci 


20?t^ 






335 






/54\iaE 


or ACCEPTIBLE LI 


\Z NyBERS ? lii?l TO 31,99 


336 






/^AGSW 


1 






337 






/3RnuP 


»?e-0i« 






339 






/LIME" 


4220 






339 






/ALL«0021 






340 






/LIST 


3F FUNCTION ADDRESSES. (NAMES ARE IN "FNTABL") 


301 




.374 


FNTasF 


»• 






342 


ffizU 


2316 




XASS 


/A9S 


'ABSOLUTE VALUE 


343 


i»375 


2^12 




XSGN 


/SGN 


"SIG^' PART 


344 


?I376 


1156 




XI NT 


/ITR 


"INTEGER PART 


345 


(^377 


7602 




XDiSP 


/OIS 


/••«»•••• 


346 


04C1? 


U45 




..xran 


/RAN 


"RANDOM -jUHSER 


347 


ti4(Jll 


1341 




XAOC 


■/ADC 


•REah analog To DIGITAL CONVERTER 


348 


n4B2 


50P13 




ARTN 


/ATN 


9 


349 


r>4?3 


462P 




feyp 


/EXP 


"EXPONENTIAL FUNCTIONS 


350 


PI4I?4 


5?40 




fLOG 


/LOG 


ff 


351 


(MP3 


5204 




FSiN 


/SIN 


"TRIG FUNCTIONS 


352 


PI4B6 


5177 




rcos 


/COS 


f! 


353 


P'4(?7 


7400 




XSORT 


/SOT 


"SQUARE ROOT 


354 


a4i0 


2725 


PTMEW* 


ERR0R5 


/NEW 


•USER DEFINED FUNCTIONS 


355 


PI411 


2725 


PFX. 


ERRORS 


/FX 


/•••••••• 


356 


S«412 


2725 


prz, 


ERRORS 


/F2 


/•«••••«• 


357 


PI413 


:'2i0a 


XRTL6i 





/ROTATE 


AC LEFT SIX - "RTL6" 


358 


W414 


71?6 




CLL RTL 






359 


0415 


7306 




rtl 






360 


PI416 


7006 




RTl 






361 


VIAil 


5613 




JMP. I XRTL6 




362 






/RECURSIVE OPERATE. EXECUTE, OR CALL 


363 


f420 


4554 


OOi 


GETLN 




/EXECUTE ONE LINEi A CROUP. OR ALL 


364 


0421 


1922 




TAO PC 




/SAvr ADDRESS 


365 


(^4?2 


4542 




PUSHA 




/OF CURRENT lInE 


366 


Pi4?3 


4543 




PUSHF 




/SAVE REST OF THIS LINE 


367 


PI424 


'•>017 






TEXTP 


/ADDRESS OF TEXT POINTERS 


368 


(1425 


4543 


OSRP, 


PUSHF 




/SAVE NACSWi CHARI AND LINENO, 


369 


R426 


'■'■365 






NASSW 




370 


C4 27 


3 365 




TAD NAGSW 


/CHECK DATA FROM GETLN, 


371 


PI430 


7710 




SPA CLA 




/SKIP IF GROUP OR ALL 


372 


fi431 


5263 




JMP OOONE 


/DO nUl LINE 


373 


f^432 


4555 




FINOLN 




/INiT FOR CROUP AND SET THISLN 


374 


PI433 


73!?P 




NOP 






375 


P4?4 


l'?23 




TAD THISUN 


/•TEST FOR GOOD GROUP NUMBER, 


376 


P435 


3011 




DCA XRT 






377 


C1436 


14U 




TAO I XRT 


/(X,.MEM) 


378 


11437 


4563 




TSTGRP 






379 


Pt44P 


4566 




ERP0R2 




/NO SUCH GROUP NUMSER 


38f 


R441 


4 54,1 


DGRP1» 


PUSHJ 




/EXECUTE 09JECT LiNE AND SET PC, 


391 


CAA2 


1 b^/ib 






PROCESS. 


.2 


3B2 


^443 


4544 




POPF 




/RESTORE THE DATA 


3e3 


!?444 


■■ ^65 






MAGSW 




384 


?445 


1422 




TAD I PC 




/CHECK FOR E^0 OF TEXT {X»ME>1) 


385 


?I446 


745(^ 




SNA 







m m 



/F0CLl2,:^7 



OlALlf' V"-iZ 



ii;jANw7i 
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356 

39S 
?89 
390 
391 
392 
393 
394 
3o5 
396 
397 
398 
399 
400 
401 
4?2 
403 
4?4 
4p5 
406 
4?7 
4 08 
409 
410 
411 
4l2 
413 
414 
4l5 
4l6 
4l7 
4l8 
4l9 
420 
421 
422 
423 
424 
425 
426 
427 

428 
429 
430 
431 
432 
433 
434 
435 
436 
477 
438 
439 
440 



^447 
."4 5? 
.^451 

"453 

['454 

.■^4 55 
i'456 

(M57 

:i46P 

P461 
P462 
?463 
C464 
C465 
("466 
PI467 
CI472I 
P1471 
^■472 
P1473 
(5474 
t?475 
C476 

0477 

PI55I0 

("5PH 

P582 
P1503 

P1504 
P5t55 
P15P6 
Pi5f7 
H510 

P!511 

P»512 

«5i3 
(5514 

fi5l6 
P'517 

n320 

515?1 

C"5?2 
1^523 
(1524 
(?i9?5 
P'526 
C5?7 
053? 
("531 
(^532 
f533 
5^534 



5271 

t^iT.l 

3 '65 
774T 
S26" 
1430 
4563 
5271 
1.430 
3^67 
5225 
1955 
4566 
454f5 
■.610 
4544 
f365 
4544 
/317 
1413 
3C22 
5676 
0611 

^•■■000 
3071 
7^40 
4310 
1?I71 
3413 
7040 
4310 
5677 

1013 

3013 
I^IS 
7141 
1031 
7630 
4566 
5710 
'1 P 
1721 
3071 
7040 
4311-) 
1321 
7?ril 
?413 
7.'^4P 
43lt.1 

5471 



doomc» 



JMP OCOM 

lAC 

OCA PTl 

TAO NAGS>i 
3M4 S2A CLA 
jMP ,*4 

tAO I PTl 
TStGRP 
JMP OCONT 
TAD I PTl 
OCA LINENO 
JMP DGRP 
riMDLN 
rRR0R2 

PUSHJ 



DCONT» 



POPF 
POPF 



PROCESS 

NAGSW 

TEXTP 



PQPA 

OCA PC 

JMP I ,*1 

PROC 
/PUSHDOWN LIST CONTROLS 
XPUSmA, !? 

OCA T2 

CMA 

JMS PCHK 

tAO T2 

OCA I pqlxr 

CMA 

JMS PCHK 

JMP I XPUSHA 
PCHK. 

TAD PDLXR 

OCA PDUXR 

tAO PDLXR 

CI A CLL 

TAD LASTV 

S2l CLA 

ERRORS 

JMP I PCHK 
XPUShJ; 

tAO I XPUSMJ 

DCA T2 

CMA 

JMS PCHK 

TAD XPUSHJ 

lAC 

OCA I PDLXR 

CMA 

JMS PCHK 

JMP 1 T2 
PD2, i? 



/ALL DONE 

/SAVE POINTER TO LINENO 
/CHECK FnR GROUP 

/DO ALL 

/TEST GROUP (X-MEM) 

/NOT IN GROUP 

/READ NEXT LINE NO. tX-MEM) ■ 

/CONTINUE THE SUBROUTINE 
/FlNn THE LP>;E 
/NO SUCH LINE NUMBER 
/EXECUTE IT 

/RESTORE CHAR 

/RESTORE TEXT POINTERS 

/RESTORE ADDRESS OF CURRENT LINE, 

/CONTINUE PROCESSING THIS LINE.. 



/PUSHDOWN THE AC ■ "PUSHA" 

/BACKUP POINTER 

/AND Then 

/CHECK CORE uSAGE 

/OK 

/PUSH DOWN LIST POINTER 

/BACKUP AGAIN 



/INC IN AC 



/STORAGE FILLED BY PUSH-DOWN LIST 
/RECURSIVE SUBROUTINE CALL • "PUSHj" 
/SAVE SUBR, aODR, 

/SAVE RETURN 



/TRan'SFER CONTROL 

/SAVE A FLOATING POINT NUMBER » "PuSHF" 



'\^ 



u 







/F0Cl12 


37^™^ 


OULI0 


v'i;i3 


ll-JAN-71 
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441 


-535 


724S5 




CL4 CMA 


/COMPUTE VARIABLE ADD!? 


Ai2 


y S T 5 


1734 




■TA-; I ,»2 




443 


"f J7 


'3-311 




OCA XRT 




444 


-"5 4,1 


?334 




IS? PD2 


/Fix RETURiJ 


445 


'•Kil 


3117 




TAO HFLT 


/COMPUTE PuSn, PolNTEi? 


446 


"542 


43lP 




JMS PCHK 




447 


?«;43 


1117 




TAD MFLT 




448 


r>i?44 


3.171 




DCA T2 




4 49 


.'545 


1411 




TAD I XRT 




450 


:^546 


3413 




DCA I PDLXR 




451 


,'^547 


?n7i 




ISi? T2 




452 


?5??i 


5345 




JMp ,s.3 




453 


(^551 


1117 




TAD MFLT 


/RESET POINTeS 


4f4 


:'952 


4310 




JMS PCHK 




455 


P1553 


5734 




JMP I PD2 




456 












457 












458 


(1554 


.'203 


P03. 


7 


/ RESTORE A FLOATING POINT NJME 


459 


?595 


724?! 




CLA CMA 


/GET VAR, ADDR, 


Aid 


f^^i 


1754 




tAD I P03 




461 


?I597 


2354 




ISi P03 




462 


5^560 


3011 




DCA XRT 




463 


PI961 


1117 




TAO MFLT 




464 . 


P562 


3371 




DCA T2 




465 


P563 


1413 




TAD I PDLXR 


/MOVE 


466 


f»564 


3411 




DCA I XRT 




467 


0565 


2071 




1S2 T2 




468 


PI566 


5363 




JMP ,nZ 




469 


0967 


5754 




JMP 1 PD3 


/EXIT 


470 




P1570 


INLISTi 


/INPUT CONTROL CHARACTERS 


471 


0570 


274!? 




RECOVR /C.Ci 


» BREAK 


472 


PI571 


^'-212 




IB*R /B.A, 


t RESTART 


473 


{•SfZ 


;-2l7 




IGNOR /LiF. 


» IGNORE 


474 


3973 


C227 




IRETN /C.R. 


■ TERMINATE STRING 


475 


f574 


1075 


rLlST2, 


FLIMIT /, -STANDARD 


476 


C575 


1137 




FlNFIN /|«SHQRT 


477 


PI576 


2725 




ERRORS /CR'DUMB 


478 


0577 


1065 


FLlSTi; 


FIMCR /.fSTANoARO FORMAT 


479 


Pi6i?i0 


•"610 




PROCESS /ItSETlPLUS ,,. 


4n0 


Pi6Cll 


'614 




PCI /C.R, 


■Set Command,' 


431 


0602 


7472 


MPi 


-306 /USED 


By TEstc 


492 






/PRIMAR 


Y CONTROL AND 


transfep 


483 


0633 


4554 


SOTO, 


GETLN 


/READ THE LINE NUMBER REQUESTED 


484 


06P4 


4555 




FINDLN 


/LOCATE IT AND RESET TEXTP 


495 


("605 


4566 




ERR0R2 


/NOT THERE 


486 


C^606 


1023 




TAh THISLN 


/SEtPC 


467 


{^607 


3022 




DCA PC 




488 


0611" 


4545 


Pi^OCCSs 


,CETC 


/TEST FOR END OF LINE 


489 


0611 


1066 


P'^OC. 


tAD CHAR 


/F!R?T character ready b USE PR 


490 


n6l2 


ill6 




TAO HCR 




491 


0613 


765;^ 




SNA CLA 




492 


^614 


5541 


PCI, 


POPJ 


/EXIT "PROCESS" 


493 


'-^615 


455«i 




SO!?TC 


/IGNORE "SPACE",",", AND "1". 


494 


0616 


3374 




OLIST-1 


495 


0617 


5210 




JMP PROCESS 





; "popp" 



/rocLi2..^r 



LM*1.10 V*?3 



li;jAN»7l 
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496 

497 
498 
499 
5;i0 
5?! 
5.72 
5?3 
5?4 

5i'.6 
5P7 
508 
5"i9 
510 
511 
5l2 
5l3 
514 
515 
5l6 
5l7 
5l8 
5l9 
520 
521 
522 
523 
524 

525 

526 
527 
528 
529 
530 
5?1 
532 
533 
534 
535 
536 
5t7 
538 
539 
540 

541 
542 
5^3 
5-J4 

545 

546 

f47 

5^8 
549 
553 



"*,?! 
r>i6 22 
C6?3 
?ft?4 
.^6 25 
?426 
;i6?7 
"^63? 
^631 
'^432 
0633 
'.^434 



B635 
fi656 
!»637 

364? 
(1641 
("^42 

f643 

0644 
P645 
PI646 
1164 7 
71650 
3651 
3652 
{'653 
R654 

(3656 
P657 
!»660 
0661 

n662 
PI663 
^664 

1^66'; 

P666 

P667 
?672l 

.'472 
C1473 
•^474 
:«475 
^676 
7677 

?7i"l 
•?7,?2 



1266 

■375 
*542 
454R 

455? 

i374 

74ia 
5223 
1*13 
4547 

773 
, 165 
4566 

614 



4554 
?iJ26 
4555 
5267 
1067 
7640 
4553 
4545 
4551 
1366 
1116 
7640 
5244 
1423 
7450 
5271 
7J101 
7330 

i;?65 

77f)0 
1430 
4563 
5273 
1430 
3''67 
5237 
1023 
5253 
3'126 
5541 
1C65 
775!^ 
5271 
4551 
5264 

456^7 
455? 



TAD CHAR 
ANn P337 
PUSHA 
gETC 
SOPTC 

SKP 
JMP ,e4 

POPA 
SOi^TJ 



/SAvE COMMAND CHARACTER 
/EXECUTE LOWr'' CASE ALSO 

/GO TO TERMImATOR 



GLlST-1 



ERR0R2 
COMMENtS»PCl 



/CO no COMMAND 
COMLST-1 
COMGO'COMLST 

/ILLEGAL COMMAND 
/ALSO Is CONTINUE 



/OUTPUT 

kRiTE* 



WTEStZ; 



WALL. 

ktestg; 

WXi 

xtestc; 



COMMAND TEXT 

CETLN 

IS? OEBGSW 

FiNDLN 

JMP WTESTC 

TAD LINENO 

S2a CIA 

prntln 

GETC 

PRiNTC 

tAO CHAR 

TAD MCR 

SZA CLA 

JMP .-S 

tAD 1 ThiSLN 

SNA 

JMP WX-2 

lAC 

DCA PTl 

tAD NA6SM 

SMA CLA 

tAO I PTl 

TStGRP 

JMP HX 

tAD I PTl 

OCA LJNENO 

JMP WRITE*2 

tAO THISLN 

JMP WTEST2 

DCA OEBGSW 

POPJ 

TAO NACSW 

SPA SNA CLA 

JMP WX»2 

PRiNTC 

JMP WALL 

/TEST 

SP.VOR 

SORTC 



/SET LINENO 

/OISABLE TRACE 

/SEARCH FOR llNE NUMBER 

/NOT There or group 



/PRpjT LINE DUMBER AND A SPA'CEi 
/P«IHT TEXT or A LINE, 

/SKIP IF END OF LINE 
/TEST FOR END OF TEXT (X«MEM> 
/EXITIOO NEXT INDIRECT LINE. 
/SAVE POINTER TO LlNENO OF NEXT 

/{X.MEM) 

/TPy NEXT LInEMO for CROUPi 

/SET LiNENO tX.MEM) 
/INIT GROUP PRINTOUT 



/SKIP IF ALL 
/PRpT C.R. AGAIN 

The Nature of the next alphanumeric ; "Testc 

/IGNORE SPACES 

/TEST Th? VARIABLE TERMINATORS 



# 



m 



/F0CL12 


37^^ 


rjALl-'' 


V^l 


u; 


JAN-71 
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551 


'7?3 


1771 






TERMS-1 




552 


? 7 ?■ 4 


57 'M: 




J^'P 


1 XTE5TC 


/YES « SORTC IS SET 


553 


"-r.'S 


n'66 




TAD 


CHAR 


/NO 


55^ 


^7.^6 


2 3':'r 




ISZ 


XTESTC 




555 


^'t??. 


12^-2 




TAD 


MF 




556 


il 7 1 


765;^ 




SNA 


CLA 


/TEST FOR "F" 


557 


>?711 


5317 




JMP 


XT3 




558 


•:^7i2 


4561 




TESTN 




559 


• f7l3 


57,i(; 




JMP 


I XTESTC 


/. 


550 


^714 


741? 




SKP 




/OTHER 


561 


^715 


57i)B 




JMP 


I XTESTC 


/NUmoER 


562 


5^716 


2300 




ISZ 


XTESTC 




56 3 


J'tl? 


233? 


XT3. 


IS? 


XTESTC 


/RETHRNSlTlNlFlA 


56^ 


/72n 


57^0 




JMP 


I XTESTC 




565 


£»721 


i.'3Pp 


xsortc, 





/SORT CHAR ARAINST TABlE » "SORTC" 


566 


P722 


1721 




TAO 


I XSORTC 




567 


3723 


3SH2 




OCA 


XRT2 


/IST ARC IS LlST^l 


568 


5i7?4 


1412 




TAb 


I XRT2 




569 . 


f725 


751171 




SPA 




/LIST IS ENDED BY A NEGATIVE 


570 


?i7?6 


534? 




JMP 


SEXC 


/2AN') EXIT ■ NOT IN LIST 


571 


!?727 


7041 




CIA 






572 


P730 


1066 




TAD 


CHAR 




573 


(1731 


7640 




SEA 


CLA 


/COMPARE 


574 


?732 


5324 




JMP 


,■6 




575 


(^733 


1721 




TAO 


I XSORTC 


/COMPUTE INCREMENT I • N 


576 


0774 


7!?40 




CMA 






577 


CT735 


1012 




TAO 


XRT2 




576 


PI736 


Zd5A 




OCA 


SORTCN 




579 


fl777 


7410 




SKP 




/iST EXIT s YES 


590 


P"740 


2321 


SEXC, 


IS2 


XSORTC 




581 


PI741 


2321 




IS2 


XSORTC 




5d2 


(»742 


7300 




CLA 


CLL 




583 


9)743 


5721 




JMP 


I XSORTC 




564 


1?744 


"SSgi 


CRPTST, 





/AC VS 


LINEnO • "TSTCRP" 


535 


f5745 


-104 




AND 


P76e0 




586 


("746 


7341 




CIA 






537 


(1747 


3071 




OCA 


T2 




588 


P<750 


1067 




• TAD 


LINENO 




589 


0751 


.■■104 




AND 


P7600 




590 


(^752 


1071 




tAO 


T2 




591 


PitSS 


765? 




SNA 


CLA 




592 


15754 


?344 




IS2 


GRPTST 




593 


P!755 


5744 




JMP 


I SRPTST 




594 






/INPUT 


FROM 


TEXT OR KEVbOARDI 


595 






/ir oACK.APROW, RESTART 


INPUT 


596 


(?756 


•.■00(3 


INPUT* 







/INPUT A Character 


597 


P1757 


3036 




TAO 


INSUB 


/N0N-2ER0 FOR KEYBOARD 


596 


S)760 


764? 




SZa 


CLA 




599 


?761 


5364 




JMP 


.♦3 




(>?0 


?i762 


4545 




CETC 






6C1 


C1763 


5756 




JMP 


I INPUT 




6^2 


("764 


4552 




readc 




6.- 3 


(^765 


4547 




SORTJ 




6fi4 


PI766 


6776 






SPECIAL. 


.1 


6fe'5 


!^767 


34(('.2 






INFIXsSPE-CUL 



NUMBER 



/FOCLl? 




?IAL13 


V^t'S 


ll^JAN-71 23106 PACE i«|fl| 


6''6 




5756 




JMP I IN.PU7 


6'/7 


???! 


1.^35 


IL!«!t, 


IPl /, 


67$ 


.■•7'2 


■61;T 




PROCESS /I 


6r9 


,-»??3 


614 




PCI /CR 


610 








/ENGLISH»FRE^'CH 


611 




774 


CO'^LST 


». /COMMANo OECIDINC LlsT 


612 


•'774 


323 




323 /SET " ORGANIZE 


613 


?775 


3a6 




306 /FOR ' QiJANO 


614 


?7T* 


■311 




311 /IF » Si 


615 


?777 


334 




304 /DO » FaIZ 


616 


irr? 


'307 




307 /GOTO • VA 


617 


l"?! 


3^3 




303 /COMMENT* COMMENTE 


. 618 


?r?2 


.3fil 




301 /ASK • DEMANDE 


6l9 


i??3 


324 




324 /TYPE n Tape 


620 


i.??4 


-317 




317 /OUTPUT /•••••••• 


621 


i??5 


'305 




305 /ERASE s BIFFC 


622 


i??6 


■327 




327 /WRITE » INSCRIS 


623 


1??7 


-^315 




315 /WODIFY " MQOIFIE 


624 


i.nf 


'.'321 




321 /QUIT • ArrETE 


625 


i?!! 


322 




322 /RETURN » ReTOURnE 


626 


i?i2 


■'314 




314 /LIBR»»««» 


627 
629 
629 






/THIS 


COHMAND LIST IS SPEED OPTIMIZED, 










630 






/CONDITIONAL TRANSFER PROCESS, 


631 


nii3 


4564 


IF, 


TESTC /IGNORE SPACES AND 


632 


i?ii4 


4637 




JMS I lECALL /T 


633 


i?i5 


2013 




IS? PDLXR /N-DUMP THE (EFOP) 


6?4 


Tai6 


464P< 




JMS I IPART /F"CwECK FOR PAREN 


635 


tfii7 


illl 




TAD «2 /A 


636 


1223 


3tJ32 




DCi Tl 


637 


i?2i 


1045 




tAO FLAC*1 /TEST -.e,* 


638 


1?22 


75151 




SPA 


639 


i3?3 


??32 




ISI Tl /N-TO ^i,''2f»3 


640 


1324 


7750 




SPA SNA CLA 


641 


???5 


2932 


ir3, 


ISl Tl /COUWT COMMAS 


642 


\!26 


7410 




SKP 


643 


1^27 


5765 




JMP I C0MG0*4 /TRANSFER 


644 


1?30 


4547 




SORTJ /SEARCH TEXT UNTILl 


645 


1?31 


1375 




TLlST-1 


646 


i.''72 


7373 




ILIST-TlIST 


647 


1>33 


4545 




GETC 


648 


1 134 


5230 




JMP ,-4 


649 


iri75 


4545 


in, 


CETC /MOVE PAST COMMA 


650 


i;i36 


5225 




JMP IF3 


651 


1»37 


1601 


IECalL 


; ECaLL 


652 


iZA?. 


2251 


IPA(«T, 


PAPTEST 


653 






/LOOP 


CONTROL STATEMENT 


654 




1241 


SETT., 


/SUBSET OF "FOR". 


655 


ir'41 


454f 


FOR, 


PUSrjJ /LOOPS, ETC, 


656 


i?42 


l4;U 




CETARG /LOOK FOR "=" NExT 


657 


1:^43 


4 56..7 




SPvOR /IGNORE SPACES 


658 


T?4 4 


l.:!66 




TAD CHAR 


659 


1^45 


1335 




TAD mEO 


660 


.1 J'46 


74 4'. 




S2A 



TEST 
MATCH 



IC.Ri 



/rOCLl2.-?7 



661 

662 
663 

66'» 
665 
666 
667 
666 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
6e0 
691 
682 
633 

684 
639 
666 
687 

68S 

689 

690 
691 
6o2 
693 
694 
695 
6o6 
697 
696 
699 

7?!0 

7l?l 
722 

7p4 
735 
706 
7?7 
738 
7f9 
710 
711 
7l2 
7l3 
714 
7l5 



1 :•' 4 7 

1-^51 
1 .■• 5 2 
ic'53 
i ■'^n 
ii-'55 
i-;i56 
i?57 

T-.^ei 

1.162 
i?63 

i?64 
ici65 
15166 
1067 
10751 
iPi71 
ip72 
1(?!73 
i?74 

ie75 
1C76 
17177 
li?l0 

iicil 
iie2 
1103 
n04 
Ties 
iiP6 

1137 

Til'?' 
1111 
tii2 
1113 
1114 
lli5 
1116 
1117 
11251 
1121 
1122 
il?3 
1124 
1125 
il26 
1127 
1t3(?l 
11?1 

ii72 

1133 
1134 
il35 



FINCRi 



r. lALi'" V'-''3 
4566 

4542 
454 ri 
|612 
M13 

3C13?! 
4 407 
6433 

4547 

1375 
7201 
4566 

1033 
4542 
4540 
1612 
4547 
1375 
7176 
4566 
4543 
2032 
4540 
1612 
4543 
2032 
4543 
.1017 
454? 
-61!? 
4544 
,iCil7 
4544 
2«32 
4544 
7470 
1413 
30351 
4407 
/:43£i 
1733 
6430 
2525 

■.•0nc 

1<?45 
774C!' 

5541 

1 33?! 

4542 

4543 

747? FINKP» 

5301 

7503 MEO, 



llijAN'^?! 




23106 PACE 1-12 



/LETT or "■" In ERHORI TOi^' OR 'SET' 

/save: poimer to variable 



PUSHJ 
SORTJ 



eRR0F^4 

flimit; pushf 



E'?PC«4 

Ti: PTi 
pysMA 

eval-1 /get initial value expression 

POPA 
DCi PTI 

riMT /INITIALIZE NOW. 

rPuT I PTI 
FXfT 

SOPTJ /TEST LAST ChAR FRqm "CVAL" 

TLIST«1 
FLISTI-TLIST 
ERP0R4 /EXCESS R-PAR 

TAD PTI /SAVE VARIABLE AODRESS o 
PUSHA 

/EVALUATE THE INCREHENTilF AMY, 
EVALiI 

/TEST TERMINATORS 
TLlST-1 
FLiSTZ-tLlST 

/ILLEGAL TERMINATOR IN »F0R' 
/SAVE THE INCREMENT, • 



rCONti 



PUSHJ 
PUSHF 
PUSHF 

PUSHJ 
POPF 
POPF 
POPF 



FLARG 

EVAL-1 

FLARG 

TEXTP 

PROCESS 

TEXTP 

FLARG 

ITCRl 



POPA 
OCA PTI 

fint 

fgct i pti 
faod i finkp 

FPuT I PTI 

FSUB I FLARGP 

rX!T 

tAD FLAC«1 

SMA SiA CLA 

POPJ 

TAn PTI 

PUSHA 

PUSHF 

ITERI 
JMP FCONT 
• 275 



/GET The LIMiT(NO error DETECTION AFTER Ll^lT) 

/SAVE THE LIMIT » 

/SAVE TEXT OF OBJECT STATEMENTS 

/DO THE OBJECT StATEMENTS 

/RESTORE REMAINING TEXT. 

/GET LIMIT 

/GET INCREMENT 

/OCT VARIABLE ADDRESS 

/INCREMENT AND TEST 
/LOAD THE VARIABLE 
/INCREMENT IT 
/CHANGE IT 
/TEST IT 



/END OP LOOP 

/SAVE ADDRESS • 

/SAVE INCREMENT AGAIN • 



/rocLia.tT^ 

7l6 
7l7 
718 
7l9 
7221 
721 
722 
723 
724 
725 
726 
727 
726 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
746 
749 
750 
751 
752 
753 
7«?4 

755 
756 
757 
756 
759 
760 
761 
762 
763 
764 
765 
766 
767 

768 
769 
770 



rlALl3 V'.103 



114 1 



7524 
4543 
2 4l'5 
33«1 



xCOh, 
FINFiN 



11*JAN»71 

1-254 
; PUSHF 

FLTONE 
JMP FCOK'T 



23106 PAGE 1: 

/SET INCREMENT TO ONE, 



1^ 



/ 

/SAME 
/ 

RANO> 



XRAn, 



CRUDOY 

/TAKE 

XINT. 



COMGO' 



/INPUT 
ASK, 

TYPE. 
TASK, 



FRAN • JUST MOVED 

0000 /•••»•••• 

2000 /••#«•»•» 

0?00 /•••«••*« 

FIvT /•#♦•#♦•• 

FADO RANO /•••••••» 

FHUL 1 CRUDOY /*•*••••• 

FPyT RANO /•••••••# 

FXiT '/••••••»# 

DCa RANO /•*•«••*• 

OCA FLAG /••»••••• 

JMP I EFUN3I /••••§»•• 
; RAnMUI, /•••»»••» 

THE IMTECER PART' 

JMS I INTEGER /(FlX) 

CLA 

JMP I EFUN3I 
I"." /COMMAND ROUTINE ADDRESSES 

SETT 

FOB 

IF 

DO 

GOTO /{REFERENCED) 

COMMENT 

ASK 

Type 

OUTPUT /••»••»•♦ 

ERASE 

WRiTE 

MODIFY 

START /RETURN TO COMMAND MODE VIA 'OUIT» 

RETRN 

LTaPE /#*»••••« 

-OUTPUT STATEMENTS 

CLA CMA /REMEMBER WHICh CALL, 
DCA ATSw 

SORTJ /SPECIAL CHAR? •*••♦ 

ALIST-1 

atlist»aliSt 
isl atsw /test quote switch 

JMP TYPE2 

PU5HJ /DO ASK> SETUP PTl 

CETARG 

TAD CHAR /SAVE IN-LINE CHARACTER. 
PUSHA 

TAO COL /TYPE COLON 

PRiNTC /(ClA)« to SuPRESS "I" 

ISZ INSUB /INDICATE 'READC 

lAC /POINT PAST CHAR 



IBB 



771 

772 
773 
77« 
775 
776 

ni 

778 
779 

7p,0 

7ei 

782 
783 
7S4 
785 
786 

78? 
788 
789 

790 
791 

792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
805 
804 

805 
806 
8P7 

808 
809 

810 
611 
8l2 
8i3 
814 
8i5 
8i6 
8l7 
8l8 

ei9 

820 
821 
822 
823 
824 
825 



m 



^^lALl?! V"'3 



H-JAN-71 





23126 PACE 1r14 



■■??5 
'I??* 

i?n 

1?72 

1J.13 

1535 
i?37 

1241 
15*2 
1243 

1244 

i?45 

12'46 
1247 
1?5^ 
1251 
1252 
?753 



1254 
1255 
i?56 
1257 
126? 
1261 
1262 
1263 
i?64 
1265 
1266 
1267 
1270 
1271 
127 2 
i?73 
1274 
1275 
l"?76 
1277 



4531 
1413 
3366 

52-1?! 
454? 

1613 
453r 
52<11 
2^26 
4545 
4547 
1531 
..645 
4551 
5230 
4545 
4554 
1067 
32152 
5232 
1077 
4463 
7031 
1077 
4551 
3026 
4545 
5232 
^272 



4554 
4555 

4566 
106S5 
3010 
3062 
1067 

341(71 

1010 
3027 
4464 
31?"? 
2326 
4545 

4551 
4547 
.'^76 
l267 
4546 
5271 



/REAO data AfiO SAVE 

/re^test last terminator 
/comtinue processing 

/DO TYPE 

/PPJVT 

/DISABLE TRACE 
/TYPE LITERALS 



JMS I rivPUT 

POPA 

DCA CHAR 

JMP ASK 
TYPC2f PUSHJ 

EVAL 

JMS 1 rouTPiJT 

JMP TYPE 
T5U0T» IS? DEBGS;^ 
. GEtC 

SORTJ 

TL1ST2-1 
TLIST3-TLIST2 

PRiNTC 

JMP TaUOT^l 
TINTR. GETC 

GETLN 

TAD LINENO 

DCA FISw 

JMP TASK 
TCRLr2, TAD CCR 

JMS 1 OUTOEV 

lAC 
TCRlFi tad CCR 

PRiNTC 
TASK4i oca OEBCSW 

CEtC 

JMP TASK 
COLi 272 . . 

/IF DEBGSW»i0 t ENABLE FlIP-FLOP "DMPSW" 
/ #01 DISABLE AND RETURN ALL"?" » 
/IF dMPSW i 01 TRACE ON. IF ENABLED 
/ 1K0I TRACE OFF 
/IF BOTH f I PRINT TRaCEi 
/SEARCH ROUTINES 



/PASS PERCENT SIGN 

/READ FORMAT CONTROLf "X7,03" 

/SAVE FORMAT CODE 

/SPLATtCR ALONE 

/NONiPRlNTiNG DELAY FOR C|R, ••••• 
/EXCLAMATION P0InT«CRiLF, . 

/• 
/f 

/«!« 



modify; GETLN 
FINOLN 



ERR0R2 

TAD 3UFR 

OCA AXlN 

DCA XCTIN 

TAD LINENO 

DCA I AKIN 

TAD AXIN 

OCA PACKST 
SCONTi JMS I INDEV 

OCA LIST3*1 

IS? DE6GSW 
SCHARi GEtC 

PRINTC 

SORTJ 

LIST3-1 
LISTG0-LIST3 

PACKC /SAVE NEW LINE, 

JMP SCHAR 



/READ LINE NOi 

/LOOK IT UP NOW, 

/NOT THERE i BAD COMMAND UNLESS IERO, 

/SET POINTERS 

/FOR INPUT 



/COPY THE SAME LINE NUMBER, 
/{XiMEM) 

/SAVE START OF NEW LINE , 

/READ THE TELETYPE INPUT SILENTLY, 
/SAVE SEARCH CHARACTER 
/NO BREAKS,' 

/TVpr*TEST-F.F, 
/PLAYBACK THE TEXT 
/LDO" FOR MATCH 



DCL12 


wr3 


CIAL12 


vr!i3 


826 


1^7 6? 


SBAc;. 


6?7 


13.'1 


7n'rn 




828 


l7.-'2 


3eu- 




829 


?^C'3 


3';'62 




830 


1 3 ^' 4 


4552 


SfOuNO, 


831 


l^nS 


4547 




832 


131^6 


?71 




833 


131^7 


.1267 




834 


i3l!1 


4546 


SCOT. 


835 


1311 


5304 




836 


1312 


Vl?i?lf 


S0RT8# 


337 


1313 


745? 




833 


1314 


l366 




839 


1315 


7M1 




840 


1316 


3Pi7l 




341 


1317 


]712 




842 


1320 


2312 




643 


1521 


3C112 




844 


1322 


1412 




845 


1323 


75lf" 




846 


1324 


5336 




847 


1325 


lf7l 




848 


1326 


7640 




849 


1327 


5322 




850 


1330 


1012 




851 


1331 


1712 




852 


1332 


3071 




8?3 


1333 


3471 




854 


1334 


3371 




855 


1335 


5471 




856 


133 6 


2312 


SEX. 


857 


1337 


7330 




858 


1340 


5712 




859 






/analOc 


860 


1341 


4453 


XADC. 


861 


1342 


:.363 




862 


1343 


1357 




869 


1344 


3347 




864 


1345 


60512 




86? 


134 6 


6141 




866 


1347 


iirci 




867 


1350 


r002 




868 


1351 


6001 




669 


1352 


3045 




670 


1353 


3?'46 




871 


1354 


7326 




872 


1355 


3?!44 




873 


1356 


5536 




874 


1357 


•'W'?. 


osamp* 


375 


136'^ 


■1337 


037, 


876 




j361 


SRNLSTi 


677 


1361 


1271 




878 


1362 


1266 




879 


1363 


274i? 




880 


1364 


l3:ii? 





11-JAN»71 23136 PACE iy|^ 

TAD BUFR /RESTAPT^B.A. ^^ 

lAC 

DC* AXlN /SET POINTERS 

DCa XCTpj 

readc /reat from keyboard 

sortj /test 

LIST6.1 

SRNLST-LIST6 

PACKC /PACK CHAR', 

JMP srOUNO /MORE 

I? /SORT A\0 BRANCH ROUTINE, • "SORTJ" 
SNA 

TAb CHAR /ASSUME CHAR IT AC«0 
CIA 

OCA T2 /save SORT ITEM 

TAO I SORTS /riRST APG IS LIST LESS ONE 

IS2 SORTB /2AND IS INTPA-LIST LENGTH 
DCA XRT2 
tAO I XRT2 

SPA /••LISTS ENDED BV NEGATIVE NUMBERS** 

JMP SEX /READ EXIT 

TAD T2 /riNO ADDRESS 
SiA CLA 
JMP ,m5 

tAO XRT2 /MATCH roUNO. 
tAD 1 SORTB 
OCA T2 
TAD I T2 

DCA T2 /DEBUS I AC ■ ADDRESS 
JMP I T2 

iSi SORTB /MATCH NOT FOUnD'. 
CLA CLL 

JMP I SORTB /RETURN TO CALLING SEQUENCE, 
UE to DIGITAL CONVERSION fOR POP-12 
JMS I INTEGER 

AND 037 /•••••••• 

tAD OSAMP /•••••••• 

DC* ,*3 /•••*•••• 

lor ./••»«•••• 

6141 /LINC /#•••••## 

^1100 /SAM ? /•*»••••• , 

0002 /POP /•••»••»# 

ION /••»••••» 

DCA rLAC*l /•••••••• 

DCA rLAC*2 /•••••••• 

CLA CLL CML RTL /•••••*•• 

DCA FLAC /•••••••» 

JMP I EFUN3I /••••»••• 

?iZ>d /SAM /•••••«•• 

37 /••»«•»#« 

/'MODIFY' CO^'TROL CHARACTER TABLE 

SCHAR /F.F, s CONTINUE 

SCONT /BELL » CHANGE SEARCH CHARACTER 

RECOVR /C,C, ? BREAK 

SBAR /B.A. 9 RESTART 




■OBIBMi 



/rOCLl2 


3 7^ 


r lALlC" 


V'f3 


llijAN^-Tl 
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sal 


1365 


:267 




SC3\'T*l /L.f. ■ 


FINISH THE LINE AS BEFORE, 


ees 




l366 


LISTGO. 


• 




953 


1346 


^261 




o-eTM /C.R. ? 


END THE LINE Here AS IS. 


884 


1T67 


5 31? 




SGOT /CHAR « 


SEARCH CHARACTER 


895 




i37tJ 


ALIST". 


/ ASK/TYPE LIST 


OF C'NTRtLS. 


8?6 


1372 


■245 




245 n 




S37 


1371 


:242 




242 /•• 




888 


1572 


■241 




241 /I 




889 


1373 


•243 




243 /# 




890 


1374 


,:244 , 




244 /S/// 




891 




1375 


GUIST^; 






892 


1375 


■.-2451 




24e /SPACE 




693 




1376 


TLIST«'. 






894 


1376 


-J254 




254 /, 




695 


1377 


o273 




273 /I 




896 


l"4R0 


-215 




215 /C.S. 




897 






/THIS LIST IS ENDED BY 


•TESTC. 


898 






/FIND OS ENTER A VARIABLE IN THE LISTi 


399 


■'401 
'■402 


4564 


getarg; 


TESTC 


/FIRST LETTER OF ARC 


9210 


7200 


P72(ag» 


7270 


/«»••««•» LETS F TmRU 


901 


1403 


4566 




ERR0R4 


/••««'«•»» 


902 


1404 


75100 




MOP 


/••••••** 


903 


1405 


3062 


getvar; 


OCA XCTIN 


/PACK INTO ADD, 


904 


14?6 


4546 




PACKC 




905 


140.7 


4545 




GEtC 


/SECOND LETTER 


906 


1410 


45551 




SORTC 


/TERMlNAtOR? 


n^ 


1411 


1771 




TERMS»1 




vse 


i4i2 


5224 




JMP GSERCH 


/YES 


9»9 


. 1413 


1066 




tAO CHAR 


/NO 


9n 


?414 


H122 




ANO P77 


/SAVE 2AND LETTER OF NAME 


911 


1415 


1061 




TAO OAOD 




9l2 


1416 


S061 




OCA OAOO 




9l3 


1417 


4545 




CEtC 


/IGNORE THE REST 


9l4 


?42f! 


4550 




SORTC 




9i5 


1421 


l77l 




TERMS-l 




9l6 


1422 


5224 




JMP GSERCH 




9l7 


^423 


5217 




JMP ,■4 




9l9 


H;^4 


4562 


GSERCH. 


TSTLPR 


/LOOK FOR SUBSCRIPT VU SQRTCN 


9l9 


14?5 


5235 




JMP GSl 


/NOT SUBSCRIPTED BY L-PAR. 


920 


1426 


lf561 




TAO QAOO 


/SAVE NAME 


921 


T4?7 


3056 




OCA EFOP 


/FOR RECURSIVE AND ERROR CHECK 


'ill 


1438 


4663 




JMS 1 CECALL 


/TO EVAL 


923 


1431 


l4l3 




PQPA 




924 


1432 


3061 




OCA QADO 


/RESTORE NAME 


925 


14 33 


4662 




JMS I PTEST 


/TEST PAREN mATCHi ETC, 


926 


1434 


453 




JMS I IMTEGER 


/CONVERT TO l2»BIT NUHSER, 


927 


1435 


3171 


GSl. 


OCA SUBS 


/SAVE SUBSCRIPT 


92$ 


1436 


rni 




TAn QADO 


/••»««••• LETS F THRU 


9?9 


1437 


"131 




ANO P7700 


/•••••••» 


930 


1441?) 


i2?2 




TAP p72?0 




931 


1441 


765fl 




SNA CLA 




932 


1442 


5322 




JMP FFF 


/•••••••• 


9?3 


1443 


1?6i?i 




TAD STARTV 


/SEARCH rOR vARIaBlE«CHANOE FOR X»MEM) 


■ 934 


1444 


303PI 


CS3, 


OCA PTl 




935 


1445 


333E! 




TAn PTl 





/rocLiz 


'Jft 


!:IAL13 


v:o3 


11^JAN"71 
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936 


•46 


7.M1 




CIA 


• 




9. -J 7 


14 47 


.1331 




TAD LASTV 


/TEST FOR ENr OF LIST 




938 


i4 = f^ 


775.' 




SPA SNA CLA 






979 


1451 


52«4 




JMP GS2 


/EMO SEARCM 




94e 


1452 


l43l' 




TAO I PTl 


/GET TABLE E^TrY 




941 


ii53 


7?4i 




CIA 






942 


1454 


3^61 




TAD OADD 






943 


1*4 55 


765C 




SNA CLA 






944 


1456 


■531? 


4 


JMP GFNDl 


/FOu^'D XX 




945 


1457 


l?3p 


GS4, 


TAO PTl 


/TRY NEXT ONE 




946 


146? 


l37i? 




TAO GINC 






947 


1461 


5244 




JMP GS3 






94S 


1462 


2J151 


PTCSTi 


PARTEST 






949 


1463 


16?1 


GCCALl. 


ECALL 






950 


1464 


1331 


GS2. 


TAD LASTV 


/ADO THE VARIABLE 




951 


1465 


l?i?5 




TAO P13 


/TEST STORAGE LIMITS 




952 


1466 


7141 




CIA CLL 






953 


1467 


1013 




TAD PDLXR 






934 


1473 


762C1 




SNL CLA 






955 


1471 


4566 




ERRORS 






956 


1472 


1331 




TAD LASTV 


/UPDATE THE LIST. 




957 


1473 


1070 




TAD GINC 






958 


1474 


3031 




OCA LASTV 






959 


1475 


1361 




TAD OAOD 


/SAVE KfAHE 




960 


1476 


3433 




OCA 1 PTl 






961 


1477 


2f30 




ISI PTl 


/SAVE SUBSCRIPT 




962 


ISiSP 


ii7i 




TAD SUBS 






963 


1501 


3433 




OCA I PTl 






964 


1502 


2031? 




ISi PTi 


/SET PTl 




965 


1503 


4407 




FINT 






966 


1504 


i-537 




FGCT I CFRSX 






967 


1905 


6430 




rPuT I PTl 






968 


i5(?'6 


(100?) 




rXiT 






969 


1507 


5541 




POPJ 


/EXIT 




970 


1510 


1330 


CPNOli 


TAO PTl 


/rOuMO SAME 




971 


1511 


3011 




DCA XRT 


/TEST SUBSCRIPTS 




972 


1512 


14H 




TAD I XRT 






973 


1513 


7041 




CIA 






974 


1514 


1171 




tAD SUBS 






975 


1515 


7640 




SiA CLA 






976 


1516 


5257 




JMP CS4 


/WRONG SUBSCRIPT 




977 


1517 


203tJ 




ISZ PTl 


/SET POINTER To OATA 




978 


1550 


2330 




iSi PTl 






979 


i5?l 


5541 




POPJ 






9%0 


1522 


7?3e 


rFF, 


OCA PTl 


/•»••#••• SAVES SUBSCRIPT ON F 


991 


1523 


1061 




tAO OAOD 


/••••«••• 




9s2 


1524 


3?02 




DCA LWETMP 






983 


1525 


1345- 




TAD hORO 


/•••••••• 




994 


1526 


3173 




DCa LCSUB2 


/•»•••••• 




935 


1527 


Jl'l 




TAO SUBS 






936 


T530 


3167 




OCA sues2 


/••#••#•» 




937 


15.T1 


5541 




POPJ 






938 


15.^2 


'242 


TLIST2. 


242 






969 


i«i33 


.215 




215 






990 


1534 


7520 


m26C. 


«260 


/•••vA-eii* 





991 

992 

993 

994 

995 

996 

997 

998 

999 

10!>0 

. 1001 

10'?2 

10C3 

1004 

leips 

1P!?6 
• 1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
10l6 
1017 

1018 
1019 

1020 
. 1021 
1022 
1023 
1024 
1025 
1026 
1027 
1029 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1337 
1038 
1039 
1040 
1041 
1012 

1043 

1044 
1345 



1535 
1 ^.■^6 
1537 
154? 
1S41 
1542 

{B43 



1546 
1547 
1*550 
1551 
1552 
1553 
1534 
?555 
1556 
1557 
1560 
1561 
1562 



1563 
1564 
1565 
1566 
1567 

1570 
1571 
1572 
1573 
1574 
1'?75 
1576 
1577 
16510 



1601 
16^2 
16^3 

1634 

16:^5 

1606 
165" 7 
161^1 



DlAtl0 



1066 
1114 
7640 
5735 
4545 
5336 



;)3 



li;jAN-71 
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elB 



1544 75ri6 

1545 ■•'012 



. 300 
1066 
1115 
764-^ 
2346 
1066 
3344 
7100 
1345 
3054 
7430 
2346 
5746 



1137 
3022 

.1413 
3071 
5471 
1570 
1236 
1227 
1246 
1243 
3052 
l25Jt 
1250 
^610 
'614 



I 000 
1054 
4542 

4542 

1056 
4542 
■j2"'l 



XSPnoR; " 



/IGmoPE leading spaces - "SP\OR" 



M272. 

012. 



TAD CHAR 

TAD M242 

S2a CLA 

JMP I XSPNOP 

GEfC 

JMP XSPSOR*! 

-272 
12 



xtestn; 



/RETURNS I 



recodinc for space 



;> OTHERl NUMBER • "TESTn" 



TAD CHAR 

tAD MPER 

SEA CLA 

ISZ XTESTN 

TAD CHAR /•»•••••• RECOOINC TOR SPACE 

TAD M272 /•••«••*« 

CLL /••*••••» 

TAD 012 /••••••»• 

OCA SORTCN /«••♦•••• 

SZl /»•••••»« 

ISZ XTESTN /•••••••• 

JMP 1 XTESTN /•••»••#» 

/EXIT PROM A "DO" SUBROUTINE 
RE.TRN» TAD CPRSX /(Pc) t> 

OCA PC 
XPOPJi tAO I PDLXR /RECURSIVE EXiT n "POPJ" 

OCA T2 

JMP 1 T2 
ATLISTb, /ASK-TVpE CONTROL CHARACTER TABLE 

TINTR n • FORMAT DELIMITER 

tOUOT /" » LITERAL DELIMITER 

tCRLF /I • CARRIAGE RETURN AND LINE FEED 

tCRLF2 /# e CARRIAGE RETURN ONLY 

TDUMP /$/. dump The Symbol Table contents 

TASK4 /SP» TERMINATOR FOR NA^'ES 

TASK4 /, « TERMINATOR FOR EXPRESSIONS 

PROCESS n - TERMINATOR FOR cOmmaNQS 

PCI /C,R, • TERMINATOR FOR STRINGS 
/$ • For ftOUMP' TERMINATES THE COMMAND, 
/EVALUATE AN EXPRESSION WHicw 
/TERMINATES WITH AN R«PaR|I OR C.R. AND 
/LEAVE THE RESULT TJ FLaC AnO IN FLARC, 
ECAlLi e /RECURSIVE CALL TO "EVAL" 

TAD SORTCN /SAVE 'SORTC^.'' i 'LASTOP' i AND »EFOP» 

PUSHA 

TAD LASTOP 

PUSHA 

TAD EFOP /SAVE FUNCTION CoDE. 

PUSHA 

TAD ECALL /RETURN TO CALLING 



^_ii_g_igiji_^iggii^_g_gg^^ 



/FOCLlZ 


■%. 


DULin 


V/t'3 


11- 


JAN. 71 


23106 PAGE IjH 


1C46 


4542 




PUS 


■JA 


/AOOSESS AFTrR^iPxT PQPJ 


1CA7 


•412 


4545 




GETC 


/HOv? Past extra character 


1?4S 


i*t3 


3755 


EVAl. 


DCa 


LASTOP 


/evauation controller (Checkpoint ?> 


1F49 


1 f 1* 


4564 




TESTC 


/test character AND IGNORE SPACES 


1^53 


1A15 


5227 




JMP 


rrzufi 


/TERMINATOR 


1?51 


i*l6 


5332 




JMP 


ENU" 


/NUh°ER 


10?2 


1617 


5343 




JMP 


EFUN 


/FUNCTION 


1P53 


\(>2i'' 


454i< 




PUSHJ 


/LETTER OF VARIABLE 


1054 


16?1 


1435 




i 


GETVAR 


/FIND OR CREATE VARIABLE J ALSO SET PTl, 


1055 


?622 


4564 


opnext; 


TESTC 


/PTi«>ARG 


1056 


16?3 


5244 




jMP 


ETERMN 


/T 


1057 


1624 


.212 


echolSt 


.P212 


/N-ERROR IN FORMAT 


1058 


16?5 


,;377 




0377 


/F 


1059 ' 


' 1626 


4566 




ERB0R4 


/L « MISSING OPERATOR 


1C60 ■ 


1627 


1137 


ETERMi; 


TAD 


CFRSX 


/SET PTl. 


1061 


1630 


3330 




DCA 


PTl 


/TO POINT TO ZERO 


1062 


16:^1 


nil 




TAD 


M2 


/TEST FOP UNaRY OPERATIONS 


1063 


1632 


1054 




TAD 


SORTCN . 




1064 


1633 


7450 




SNA 






1065 


1634 


5247 




JMP 


ETERM 


/CREATE DUMMY FOR UNARY MINUS 


1066 


1635 


7^01 




lAC 






1067 


1636 


7650 




SNA 


CUA 




1068 


1637 


5323 




JMP 


ARCNXT 


/IGNORE UNARY PLUS 


1069 


T6 40 


1?54 




tAO 


SORTCN 


/TEST FOR NULL PARENS, 


1070 


1641 


1121 




TAD 


Mil 




1071 


1642 


7710 




SPA 


CLA 




1072 


1643 


5364 




JMP 


CLPAR 


/MIGHT BE AN L-PaR, 


1073 


1644 


4562 


etermn; 


TSTLPR 




107< 


1645 


M10 




SKP 






1075 


1646 


4566 




ERR0R4 


/OPERATOR MISSING BEFORE PAREN 


1076 


1647 


1?54 


ETEHMi 


TAD 


SORTCN 


/SET FROM "TESTC-wSORTC 


1377 


1650 


3024 




OCA 


THISOP 




1078 


1651 


1024 




TAO 


THISOP 




1079 


1692 


1121 




TAD 


Mil 




1080 


1653 


>700 




SMA 


CLA 


/END? 


1081 


1654 


32124 




DCA 


THISOP 


/"Tmisop" eoulv, to eno or exp, 


1082 


1655 


1024 


irifiHz; 


TAD 


THISOP 


/COMPARE PRIORITIES 


10n3 


1656 


7041 




CIA 






1084 


1657 


1055 




TAD 


LASTOP 




1385 


1660 


77ia 




SPA 


CLA 




1086 


1661 


531PI 




JMP 


EPAR 


/CONTINUE 


1087 


1662 


1?55 




TAD 


LASTOP 


/PlNO OPERATION 


1088 


1663 


7112 




CLL 


RTR 




1089 


1664 


^012 




RTR 






1090 


1665 


t33l 




TAO 


0PTA9L 




1091 


1666 


3274 




OCA 


FLOP 




1092 


1667 


1055 




TAD 


LASTOP 




lf193 


167!^ 


764Pt 




S2a 


CLA 


/TEST FOR END OF DATA INTO FLOATING AC 


1094 


1671 


4544 




POPF 




/GET LAST DATA 


1095 


1672 


n'^44 






FLAC 




1096 


1673 


4407 




FINT 






1097 


1674 


;000 


FUOP. 


C0 




/(FlOPR 1 PT1>*««/ 


1098 


1675 


6525 




FPUT 


I FLAflCP 


/SAVE RESULT 


1099 


1676 


•.■i»3ti1 




FXlT 






11P0 • 


T677 


1125 




TAO 


FLARGP 





maam 



/F0CL12.17 



Ilf2 

Hn5 

ll;'6 

H"7 

iir^e 

11-9 

1110 

. Ull 

1112 

1113 

1114 

ill5 

1116 

1117 

Hl8 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

114 4 

1145 

1146 

1147 

114S 
1149 

1150 
1151 
U52 
1153 
1154 
1155 



' 7r'3 

I't^i 

17.-2 

'7. -'3 

', ^ .•> 4 

i7.'5 

i:7r6 

17? 7 
17113 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
172{" 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
?730 
1731 
1732 
1733 
1734 

1735 
1736 
1737 
174!^ 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1751;? 
1751 
1752 
1753 
1754 

1755 
1756 
1757 
17651 
1761 
1762 
1763 
.1764 

1765 
1'766 



OULIZ 

3530 
1^94 
.K55 
765.' 
5541 
l4i3 

5255 
4562 
741? 
5366 

if;55 

4542 

1030 
3320 
4543 
. 00Pt 
lf^24 
3355 
4545 
4564 
5364 
5332 
5343 
5220 
i'43Pl 
4543 
i^044 
1125 
3030 
7036 
4531 
4544 
,-'P!44 

5222 
3056 
4545 
4564 
5355 
5771 
721 fiC 
1056 

7l;i4 

l2'66 
5343 
4562 
4566 

42ci 

1413 
4547 
2166 
62(^5 
4562 
4566 

4 2.ai 



EPAP. 



arcnxt; 



optabl; 

ENUM. 



li;jAN»71 

DCA P7l 

TA"^ THISOP 

TAO LASTOP 

SNA CLA 

POPJ 

f^OPA 

DCA LASTOP 

JMP ETERM2 

tSTLPR 

SKP 

JMP EPAR2 

TAO LASTOP 

PUSHA 

tAO PTl 

OCA ,*2 

PUSHF 

00 
TAD THISOP 
DCA LASTOP 
GETC 
TESTC 
JMP ELPAR 
JMP ENUH 
JMP EFUK 
JMP OPNEXT-2 
rCET I PTi 
PUSHF 

riAC 
FLARCP 

PTl 
INSUB 
I riNPUT 



23106 PACE I 



»Z^ 



EFUM. 



ErUV2i 



TAO 
DCA 
DCA 
JMS 
POPF 

FLAC 
JMP OPNEXT 
DCA EFOP 
GEfC 
TESTC 

JMP EFUN2 
JMP I PPNUM 
NOP 

TAD EFOP 
CLL RAL 
tAO CHAR 
JMP EFUN 
TSTLPR 
ERR0R4 

JMS ECALL 

POPA 

SORTJ 



ELPARr 
EPAR2, 



FNTABL' 
FNTABF- 



TSTLPR 
ERR0R4 

JMS ECAll 



/a07 

/EXIT "EVAL" 
/GET PRIOR OP 

/CO.MPARE THIS OP 

/TEST FOR SU9-EXPRESSI0N 

/GO EVALUATE EXPRESSION 
/CONTINUE READING THE EXPRESSION 
/SAVE "LASTOP", 



/SAVE LAST ARGUMENT 

/MORE TO COME 

/REaO 1ST CHaR OF AN ARG, 

/DO SPECIAL CHECK 

/COULO be LEFT PaREN 

/N 

/F 

/L 

/BASE FOR OPERATION COMPUTATION 

/TO PROCESS A NUMBERfSAVE AC 

/SET POINTER AS FOR A VARIABLCi 

/POINT TO 'CETC AND USE CHAR 
/REAP TEXT NUMBER .> {PTD 
/RESTORE The AC 

/CONTINUE 

/SET CODE 

/REaO FUNCtlON NAME.(l|2,0R 3 LETTERS) 

/•••••••• SEPARATES FILE BECAUSE F DiGjT 

/MISH»MASH HASH CODE 



/MUST BE FOLLOWED BY PARENS TO SET ARGUMENT 

/CALL "EVAL" TO COMPUTE ARGUMENT 

/BRANCH ON FUNCTION CODEjRETURN VIA EFUMSlV 



rNTABL 
/LEFT PAREN cR FELL THROUGH FUNCTION TABlE 
/DOURLE OPERATORS OR ILLEGAL FUNCTION NAmE'. 
/EVALUATE NESTED EXPRESSION 



/F0CL12. 


"% 


CIALI? 


V?03 


llijAN»7l ■ 


231216 PAGE l^k 


1156 


2.n3 




ISi 


POLXR 


/DUMP Sm»A ARG, 


1157 


1777 


?536 




JMP 


I EFU.-JSI 




1159 


1771 


6311 


PFNU'li 


^NLl^ 


1 




1159 




i772 


TERMS"'.' 




/TERMI 


NaTO" table for tEVAL' AND 'CETVARi 


11*2 


i7'2 


..24? 




240 




/SPACE 3 


1161 


1773 


. 253 




253 




/♦ 1 


1162 


1774 


:'255 




255 




/" 2 


1163 


1775 


-257 




257 




// 3 


1164 


1776 


^;252 




.252 




/• 4 


1165 


1777 


336 




336 




/UP ARR 5 


1166 


7??.? 


.'250 




250 




/( 6 L"PARS 


1167 


93;'i 


.333 




333 




/C 7 


1168 


??22 


.274 




274 




/< 10 


1169 ' 


• 9?!*'«3 


1251 




251 




/> 11 RiPARS 


1170 


■ ?a?4 


;'335 




335 




/3 12 


1171 


P!f?.5 


.276 




276 




/> 13 


1172 


??I5"6 


.254 




254 




/• 14 


1173 


92P)7 


.273 




273 




/I 15 


1174 


??1PI 


^215 




215 




/CiR. 16 


1175 


P.111 


.'275 




275 


/• TO 


E%D CETARC FROM iSET» 


1176 






/TWO MINOR FUNCTIONS 




1177 


?012 


4543 


XSGNi 


PUSHF 


/TAKE SIGN«1 OF FLARG 


1178 


?3i3 


2435 






FLTONE 




1179 


?0i4 


4544 




POPF 






1180 


?3i5 


r044 






FLAC 




1181 


2Pli6 


l233 


XABS. 


TAD 


FLARG^l 


/TAKE ABSOLUTE VALUE OF FLAC 


1182 


?^i7 


7711? 




SPA 


CLA 


/SKIP TO CONTINUE 


1183 


?020 


4451 




JMS 


I MINSKI 


/NEGATE tHE FLOATING AC 


1184 






/CONTINUATION OF FUNCTION CALLS, 


1185 


?021 


4407 


ePUN3i 


FlNl 






1186 


?f22 


7300 




FNOF 


1 


/NORMALIZE FUNCTION RETURN 


1167 


?fi23 


6232 




FPU1 


' FLAR5 


/SAVE FUNCTION VALUE 


1188 


?^?4 


('0CI0 




FXjl 






1189 


?5!?5 


1125 




TAO 


FLARGP 


/SET POINTER 


1190 


?026 


3030 




DCA 


PTl 




1191 


?027 


4251 




JMS 


PARTEST 




1192 


?P?3(! 


5631 




JMP 


I 1*1 


/FUNCTION REtURN IS OK 


1193 


?P?31 


1622 






OPNEXT 




1194 














1195 


?032 


;'0O0 


P|.ARG» 





/OATA 


TEMPORARY STORaCC 


1194 


9P33 


,iil(1tfl 











1197 


?PI34 


.■n«i^ 











1198 


?S35 


.'0OPI 











1199 


??I36 


1K)03 


PSi 


3 






1200 


9f<37 


."'"B? 


lprtst; 


51 




/SKIP ir LEFT PArEN, • 'TSTLPR' 


12D1 


P^APt 


1C54 




TAD 


SORTCH 




1232 


9P141 


1121 




TAD 


Mil 




12*13 


9?)42 


77i'Jl 




SMA 


CLA 




12C!4 


??I43 


5637 




JMP 


I LPRTST 




1235 


?!ri44 


lP54 




TAD 


SORTCN 




1206 


??4 5 


112;' 




TAO 


m5 




12?7 


?04 6 


774fi 




SMA 


SiA CLA 




i2?e 


?.147 


?237 




iSi 


LPRTST 




12^9 


J>P5(?I 


5637 




JMP 


1 LPRTST 




1210 


yp-si 


;'J5i?{i 


PARTESf 


.c 




/TEST THE PAREN HATCHINGS 



HBttSS 



f 



/rOCLl2.37/^ jULl^ V 3 llijAN-Tl 23106 PAGET 1« 

■■1211 ?.'52 .1*13 PO"* /RESTORE LAST OPERATION 

1212 ?";53 T.'Se : . lASTcP 

1213 ?.-'54 ..236 ''■■3 P3 . Z + S TO COMPARE CoDCS 

1214 ?-'55 l4l3 POPA /GET LAST PAfiE\ CODE, 

1215 7")'^ 7.''41 ClA /C^ECK FOR PaREN maTCw, 

1216 ?,i57 1754 ta:^ sortcv /(Sttll SET fhcm The last "EVAL") 

1217 Si'f.r' 764J! SEi CLA /SKIP IT MATCM 

1218 ?,'61 4566 ERB0R4 /pAr^N ERROR 

1219 .?'62 4545 GETC /move PAST RbPaR 
1223 ?:'63 5651 JMS I PaRTEST 

1221 /THE Delete a line routine 

1222 ?;.:i64 v??? XDElETE.C /'JNcmaIN A LINE AND RECOVER THE SPaCEi 

1223 9r!65 6'302 10? /PROTECT POINTER CHANGES FROM INTERRUPTIONS 

1224 ?ii66 4555 flvDLN /SETS "ThISLW" AnD "LASTlN". 

1225 7ef,7 5664 JMP I XDELETE /ALREADY GONE 

1226 ?ri7?! 2026 ISi OEBGSW /DISABLE TRACE 

1227 ?371 4545 GETC /MEASURE LENGTh 

1228 ?:572 1^66 TAD CHAR 

1229 52173 1116 TAQ "^CR 

1230 ' ?074 7640 Si4 CLA 

1231 ?.'?75 5271 JMP t"* 

1232 ?{i76 1317 TAO AXOUT /SAyE LAST ADORCSS 

1233 ?B77 704f! CMa 

1234 ?it50 1?123 TA5 THISLN 

1235 p\n 3!J57 DCA CNTR /LENGTH < 

1236 ?i32 1133 TAC CFRS /IT IS ILLEGAL TO DELETE THE FIRST LINE 

1237 ?t03 7041 CIA 

1238 ?iPl4 1023 tAO THISLN 

1239 ?i05 765« SNA CLA 

1240 ?106 5177 JMP START /jUST IGNORE SUCH COMMANDS 

1241 2{pi7 7^dP\ COF T /CHANGE DATA FIElO TO TEXT, (X.MEM) 

1242 9110 i423 TAO 1 TmiSLN /DISCONNECT 

1243 jiii 3425 OCA I LASTLN 

1244 3112 1133 TAD CFRS /START LIST AT ToP 

1245 2ii3 3071 OOK, OCA T2 /EXAMINATION ADDRESS 

1246 piiA 1471 TAD I T2 /GET THE NEXT ADDR. 

1247 9115 7450 SNA /TEST FOR END 

1248 ?ii6 5331 JMP DONE /YES-WRAP UP ALL, 

1249 2117 3032 OCA Tl /SAVE NExT ADORESS,' 

1250 ?120 1023 TAD ThISLN /COMPARE LINE POSITIONS 

1251 ?1?1 7141 CIA CLL 

1252 ?i22 J032 TAC Tl 

1253 ?i23 7630 S2l CLA /SKIP IF THISLN > X 

1254 2124 15557 TAO CNTR /CHANCE <X> TO ACCOUNT FOR 

1255 2125 1332 TAO Tl /GARBAGE COLLECTION, 

1256 2126 3471 DCi I T2 

1257 2127 1032 TAD Tl /GET NEXT 

1258 2i3Pi 5313 JMP OOK 

1259 /GARBAGE CSLLECTION 

1260 2131 734? DONE. CM4 /BACKUP L FOR XR 

1261 2132 .l'<23 TAO THISLN 

1262 2133 3k?ll DCA XRT 

1263 2134 yZ57 TAD CNTR /SETUP END OF HOSE 

1264 9135 7«4« CMA 

1265 2136 1323 , TAO THISLN 



/F0CL12.J1, 

1266 
126? 
1266 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
12SI1 
1282 
1283 
1284 
1285 
1286 
1287 

1288 
12S9 

1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 

1299 
1299 
1330 
13C11 
13P2 
1303 

13M 
13?5 
13?6 
1337 
13?8 
13p9 
1310 
1311 
13l2 
1313 
13l4 
13l5 
1316 
13l7 
13l8 
1319 
1320 



4*tl2 V.'i.'3 



n7 3.?i2 

Pi il 116:" 

9142 ZH? 

?1<3 \di^ 

?145 i?12 

?146 3C32 

?147 1-?>1G 

?15? i?57 

9151 3-?!^ 

?152 5412 

?i53 3411 

?i54 ?032 

?i55 5352 

?1'56 5265 

?l57 .•0,?0 

?l6a 4464 

?161 3066 

9162 4553 

?i63 1623 

9164 5757 

9165 4551 

9166 5757 
2167 

9167 2533 
9l7«i| 2650 

9171 2636 

9172 2565 

9173 2630 

9174 2517 

9175 2572 

9176 2624 

9177 2625 
923(?i 2654 

9201 2575 

9202 2732 

9203 2631 
9?{14 .'330 
9905 ^332 




CHIN. 



FNTA8l.«, 



11-JAN-.71 

DCa 'xRT2 

TAD CNTS 

TAO PUFR 

DCA BUFfi 

TA5 AXl\ 

CMA 

TAO XRT2 

DCi Tl 

tAD AXIS' 

TAD CNTR 

DCA AX IN 

TAO I XRT2 

DCA I XRT 

ISZ Tl 

JMP ."S 

JMP XDEUETE*! 



JMS I INDEV 

OCA CHAR 

SORTC 

ECHOLSTi 
JMP I CHIN 
PRiNTC 
JMP I CHIN 



23r26 PASE 1 



1^ 



/CORRECT END OF BUFFER PCINTER, 



/COMPUTE COUN'T 



/SIPHON LOWER PART. 



/RESET 'LASTlN'.'THISLNS AND DATA FIELD', 

/reao in a Character subr, • "ReaDc" 



/LINEFEED OR "UBOUT? 

il 

/VES 

/ECHO THE INPUT 



/ERASE S 
ERASEi 



2533 
2650 
2636 
2545 
2430 
2517 
2572 
2624 
2625 
2654 
2575 
2702 
2631 
0350 
9332 



/ABS 

/SON 
/ITR 
/DIS 
/RAN 
/AOC 
/ATN 
/EXP 
/LOG 
/SIN 
/COS 
/SOT 
/NEW 

/FX 
/FZ 



/LIST OF CODED FUNCTION NAMES 



ERT, 



ERV, 



INCUE LINES.. 
TESTC 
JMP ERVX 
JMP ERL 
JMP ,*4 
tAD CHAR 
tAO MlNUSA 
S2i 

ERR0R3 
TAO ENDT 
DCA BUFR 
OCA I CFRS 
TAO STARTV 
OCA LASTV 
JMP START 



CRoUPS, OR VARIABLES 

/TEST THE SECOND WORD# IF ANY, 

/ERASE VARIABLES 

/LINES OB CROUPS 

/ERROR 

/ALL TEXT 



/BAD ARC FOR ERASE,' 
/ERASE ALL TEXT •• 

/(X»"EM> 

/ERASE VARIABLES •» 

/POINTERS MAY BE DIFFERENT .MOW, 



rocii2. 




OlALl^ 


Vt'23 


li;jAN-7l 


23106 PACE l«^r 


1321 


??24 


4554 


ERL. 


CETLN 


/ERASE LINES. 


1322 


???5 


i-16? 




TA'S BUFR 


/PROTECT REST OF TEXT. 


1323 


?j?6 


Zll-7. 




OCA AXI^ 




13?4 


?-27 


J565 


Et'C. 


DELETE 


/EXTRACT One LINE 


13?5 


?93c1 


2'.?23 




isi th:sln 




1326 


?231 


1^65 




TAO NAGSW 




1327 


?232 


773?! 




SMA CLA 




1328 


?233 


1423 




TAO 1 TMISLN 


/(XeMEM) 


1329 


P234 


4563 




TStCRP 


/SKp IF G(AC) « GCLINENO) 


1330 


9235 


5221 




JMP ERV 




1331 


7336 


1423 




TAO 1 THISLN 


/{X»MEM) 


1332 


2237 


3367 




OCA LiNiEfJO 




1333 


92"''' 


5227 




JHP ERG 




1334 


2241 


1060 


ERVX. 


TAD STARTV 


/I^^IT VARIABLES MAY BE INDIRECT 


1335 


9942 


3031 




OCA LASTV 




1336 


9943 


5541 




POPJ 




1337 






/ROUTINE CALLED VIA "FInDLN'M 


1339 






/SEarCw 


FOR A GIVEN LINE IiO. *l "LlNtNO" 3 


1339 






/IST RETURN! IF NOT FOU^n♦ 


1340 






/2AN0 ir Found, 




1341 






/"ThiSlN" 5 FOUND LINE 


oR NEXT LARGER, 


1342 






/"LASTl 


vj" • LESSER ANO/O" LAST, 


1343 






/"TEXTp 


" IS SET 




1344 


??44 


(1000 


XFlNO» 


B 




1345 


9245 


1133 




TAD CFRS 


/INlTIALIiE POINTERS TO FIRST L 


1346 


2246 


3025 




DC* LASTLN 




1347 


2247 


1133 




TAD CFRS 




1348 


225?) 


3323 


FINON» 


OCA THISLN 


/SAVE THIS ONE 


1349 


2251 


1023 




TAO THISLN 




1350 


9952 


3011 




OCA XRT 




1351 


9253 


3 067 




TAD LINENO 




1352 


9254 


7141 




CLL CIA lAC 


/CLEAR LINK AND NEGATE LINENO, 


1353 


9255 


1411 




TAO I XRT 


/LlNENOna WIlU ALSO BE FGUND{X« 


1354 


9956 


7450 




SNA 




1355 


9257 


2244 




IS2 XFINO 


/•••••••• 


1356 


9260 


7630 




S2l CLA 




1357 


9261 


5267 




JMP PEN03 


/PAST ITV 


1358 


9262 


1023 




tAb THISLN 


/MOVE POINTERS 


1359 


9963 


3S25 




OCA LASTLN 




1360 


9964 


1423 




tAD I THISLN 


/END OF TEXT! {X*MEM) 


1361 


9965 


7441^ 




SiA 




1362 


9266 


5253 




JMP FINDM 


/NOT YET 


1363 










/••••••*« 


1364 










/•••••••* 


1365 


9267 


1023 


FEND3. 


TAD THISLN 


/IST RETURN P NOT FOUND 


1366 


927f1 


70f51 




lAC 




1367 


9271 


3fl7 




OCA AXOUT 


/SET "TEXTP". 


1366 


9272 


3:?i2'i 




nCA XCT 




1369 


2273 


5644 




JMP I XFINO 




1370 


2274 


5003 


UTRA. 


? 


/UNPACK CHARACTER, .• "GETC" 


1371 


9275 


4 33i3 




JMS CETl 




1372 


2276 


771'^ 


UTE, 


SPA CLA 


/NORM S EXTEND 


1373 


2277 


1(7,06 




TAD C100 


/300»337 « 340»376 


1374 


9300 


1357 




TAD M137 


/240-276 & 200»236 


1375 


93^1 


iei66 




TAO CHAR 





COMMAND 



LINE 



MEM) 



/rocLi2.:?7^ 

1376 
1377 
1373 
1379 

13«.0 
13^1 
1362 
13p3 
133< 
1335 
1386 
1337 
1388 
1399 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
14?!l 
1402 
1403 
1404 
1405 

I4e6 

1407 

14fl6 
1409 
1410 
1411 
1412 
14l3 
14l4 
14l5 
14l6 
14l7 
14l8 
14i9 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 



DIAL 10 V'tCS 

'2 7453 

7-^^Z 5316 

?j:'4 i*?75 

??^5 3366 UTO, 

?3f"6 Ji»26 

?l(:i7 ll-'Ci 

?3l« 7650 

?311 4551 

?:^12 5674 , 

?'^13 4330 EXTR. 

2314 7040 

2315 5276 

2316 1326 UTX, 

2317 764?< 
7323 5326 
2321 1133 
?3?2 7650 

2323 70[»1 

2324 311^0 

2325 5275 

2326 llli^ 

2327 5305 

2330 C'fl00 CETl. 

2331 2020 

2332 5345 

2333 1021 

2334 i'122 CENOi 
2:^35 3066 

2336 1066 

2337 1103 

2340 7650 

2341 5313 

2342 1066 
2:^43 1356 

2344 5730 

2345 1417 GETS. 

2346 3021 

2347 7040 

2350 3020 

2351 1021 

2352 7112 

2353 7012 

2354 7(512 

2355 5334 

2356 7740 M40, 

2357 7641 M137. 

2360 i??00 XENOLN; 

2361 7'?f!Pi. 

2362 1425 

2363 346(' 

2364 "106? 
2.-<65 3425 

2366 3361 

2367 7440 
2370 3410 



11-JAN»71 

SNA 

JMP uTX 
T4[i P337 
OCA CHAR 
TAO DEBCSw 
TAD D»PSk 
SNA CLA 
PR I NT C 
JMP I UTRA 
JMg GETl 
CMA 

JMp UTE 
TAO DEBGSW 
SZA CLA 
JMP ,*6 
TAD DMPSW 
SNA CLA 
I AC 

DCa DMPSW 
JMP UTRA*l 
tAb P277 
jMP UTO 


132 XCT 
JMP GET3 
tAO GTEm 
AND P77 
DCA CHAR 
TAD CHAR 
TAD M77 
SNA CLA 
JMP EXTR 
TAO CHAR 
tAD M40 
JMP I CETl 
TAb I AXOUT 
DCA GTEM 
CMA 

DCA XCT 
tAD CTEM 
RTR CLL 
RTR 
RTR 

JMP CEND 
S.40 
-137 




23106 PAGE 1 



i 



/PRINT OMLY IV BOTH ARE HERO, 



/TEST POP TRACE-ENABLED 



/FLIP THE TRACE FLOP 



/GET NEXT CHARACTER INSTEAD. 
/TRACE DISAeiEO ? RETURN «?'• 

/UNPACK 6»BITS 
/STARTS90 



/SAVE 



/EXTENDED 



/(XiMEM) 



cor 

TAO 
DCA 



I LASTLN 
I BUFR 



/TERMINATE TME BurPERED LiNE - "ENOLN" 
/{X.MEM) 
/SAVE OLD POINTER 



TAO BUFR 

DCA I LASTLN 

TAO QADO 

Sil 

DCA I AXIN 



/POl\T TO NEW LAST LINE 

/CHECK FOR EXTRA INFO 



SH 



1432 

1133 

1434 

1435 • 

1436 

1437 

1416 
■ 1479 
1440 
1441 
1442 
1443 
1444 
1445 
1446 
. 144 7 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
. 1465 
1466 
1467 

1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
14(50 

i4ei 

14R2 
1433 

1454 
14?5 



-lALlt' V.'03 

5372 'i::! 

?T73 Mfi 

?371 1?6:^ 

?375 3^J31 

?376 '576e 

2377 TLlSt3» 

?377 1251 

?4,'';' .614 

2421 INFIX*?'.' 

?4<*1 62k32 
?4,-2 757 
?4?3 757 

?<?4 625^ 

?4C5 -'Zfli fltone; 

?4?6 2302 

?4?7 .030 ruTZERi' 

J41.1 .'?>Z2 

?411 03P 

?412 *i='0P 

?413 7766 Ml2. . 

?4l4 -,033 133, 

?415 6^31 

?416 5215 

?4l7 6336 

?420 '106 

?421 7450 

2422 5215 

9423 1123 

2424 5614 

2425 ''000 XPRnTi 

2426 l367 

2427 4557 
243C .'122 

2431 4242 

2432 llti2 
2453 4551 

2434 1^67 

2435 4242 

2436 1356 

2437 3^66 
24451 4551 

2441 5625 
^^032 VAL«Tl 

2442 ;'0C!3 PRNT. 

2443 ■.•lt'6 

2444 3332 

2445 lll3 

2446 7333 

2447 5252 

2450 2333 

2451 3'532 XYZ, 

2452 3CI32 
7453 1213 
2454 75(^P 



23l2!6 PACE U 

/COMPUTE NEW EtvD OF B'JFFEP 



/RESET VAPIAPtE LIST (X-^'EM) 



ll,JAM-7i 
TAD AXINJ 

I. C 

O'JA BUFR 
TAD STARTV 
OCA LASTV 
JMP I XE^!Dl^^ 

/LITERAL TEp^INATORS 
t A S K 4 / " 

pci /c.R. "? autqi^atic quote match 
/DATA co'^TRoL Characters 

FLiNTP*2 /LEFT ARROW u 



/SUPOUT 8 

/LiFV " 

/ALT MODE » 

/{NO RELATIVE REFERENCES) 



KILL 
IGNORE 
IGNORE 
EXIT 



/DECIMAL CONVERSION FACTOR FOR "PRNT" 
/NOilNTERRUPT INPUT ROUTINE 



/IGNORE PARITY BIT 



INPUT*! 
INPUT^I 

EN0FI*5 

0001 

2000 

0000 

0000 

0000 

0000 

el2 



KSF 
JMP ,»1 

KR9 

AND P177 

SNA 

JMP ,•5 

TAD C200 

JMP I 133 

/PRINT A LINE NUMBER • "PRNTLN" 

TAD LlNENO 

RTl6 

AND P77 

JMS PRNT 

tAO PER 

PRINTC 

TAD LINENO 

^MS PRNT 

TAD Ml4e 

DCA CHAR 

PRINTC 

jMp I XPRMT 



/TWO DIGIT "PART" NUMBER 

/PERIOD FOR SEPARATION 

/TWO DIGIT "STEP" NUMBER, 

/SAVE SPACE IN CHAR, 
/PRINT TRAILING SPACE 



/PRINT two DECIMAL DIGITS 

AND P177 

DCA VAL 

tAD C260 

DCA T3 

JMP ,*3 

ISZ T3 

DCA VAL 

TAO VAL 

TAO M12 

SMA 



/FOCLl2.-<2g 

1496 
l<lfi7 
1468 
1489 
14913 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
15?0 
1531 
1502 
1503 
1504 
1505 
1506 
1507 
1528 
1509 
1510 
1511 
1512 
15l3 
15l4 
1515 
I5l6 
1517 

1518 
15l9 

1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 



jIauI? V1C3 

•525^ 

?*;* 721/1 

y*;' !233 

?i*.'' 4 551 

tHi i'^32 

?«i2 lll3 

?*63 4551 

?A6-i 5642 

74*5 ■■•?:?Z OUT. V 

?i4t 7450 

7467 1366 

7*72 1116 

?47l 7450 

?<72 5276 

7473 1377 

?474 4463 

?475 5665 OUTX. 

?476 1^77 OUTCR* 

?«77 4463 

?5?'l 1076 

?5^i 5274 

75?2 .-'0(10 PACBUF; 

?5?3 illC 

?5?4 7341 

?5?5 1066 

?5P6 7450 

JSJ"? 1352 

7510 il01 

7511 7453 

7512 5755 

7513 l353 

7514 31571 

7515 i071 
7916 C354 
7517 i356 

7520 7440 

7521 l354 

7522 7650 
7^73 5332 

7524 i?l7i PAl, 

7525 .3122 

7576 7440 

7577 4335 
753(5 7303 PACX. 

7531 5702 

7532 1I22 eSCA. 

7533 4335 

7534 5324 

7535 ■'fOf' PCKl, 

7536 2062 

7537 5357 
754^ ]1161 
7*541 3410 

7542 3361 

7543 1313 



11-JAN..71- 
JHP XYZi-l - 

CLA 

TAD T3 

PRi>JTC 

tAn VAl, 

TAP C260 

PRINTC 

JMP I PRN'T 

d 

SNA 

TAD CHAR 

TAf) MCR 

SNA 

JMP OUTCR 

TAO CCR 

JMS I OUTDEV 

JMP I OUT 

TAO CCR 

JMS I OUTDEV 

tAD cir 

JMP OUTX-l 



TAD P277 

CIA 

tAD CHAR 

SNA 

TAD P40 

tAD H10B 

SNA 

JMP 1 RUBIT. 

tAO P377 

OCA T2 

tAD T2 

AND C142 

TAD M140 

SZa 

TAD C140 

SNA CLA 

JMP ESCA 

TAD T2 

AND P77 

S2A 

JMS PCKl 

cor p 

JMP I PACBUr 
TAD P77 
JMS PCKl 
JMP PAl 
3 

ISf XCTIN 
JMP ROT 
TAD QADD 
OCA I AXIN 
OCA QADD 
TAD PDLXR 



23106 PACE 1 



« 



/OUTPUT A CHARACTER • "PRINTC" 
/USE (AC) OR (CHAR) 



/PACK A CHARACTER i "PACKC" 



/CWANGC 277 TO 337 



/TEST rOR RUBOUT, 



/SAVE INPUT ITEM 

/SO THAT QUESTION DOESN'T MAKE 

/CWAR LOOK LIKE A LEFT-ARROW 

/DATA WORD.' 



/340;377 AND 200;2S7 
/24i3«337 

/IGNORE 300 
/(XiMEM) 



/»0 TO START 



/(X^mEM) 

/CLEAR PACKING WORD 
/CHECK FOR OVERFLOW 



■■^■■SB 



/F0CLl2, 

1541 
15<>2 

1543 

1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 . 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
.1575 
1576 
1577 
1579 
1579 
1580 
1581 
1582 
1583 
1594 
1585 
1586 
1587 
1588 
1589 
1590 

1591 
1592 
1593 
1594 

1595 



?544 
PS*? 

5552 
-553 
2554 
?555 
?556 
?5'57 
2553 
2561 
2562 
2563 



2564 
2565 
2566 
2567 
257(3 
2571 
2572 
2573 
2574 
9575 
2576 
2577 



2600 

26("2 
26t"3 
2604 
2605 
2606 
26«7 
26155 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2623 
2621 
2622 
2623 



r-lALir 

7141 

ji'r5 

762? 
5735 
4566 
i r.4y 
.377 
14n 
3304 
7640 
4557 
3 ■-'61 
75'4«l 
3062 
5735 



4545 
1^66 
6213 
5773 
1137 
4566 
4540 
1612 
4453 
6212 
5777 
i4n2 

2600 

','1300 
('000 
7575 
320ci| 
7^110 
32(^1 
6^41 
5225 
6(742 
3016 
1665 
7450 
5225 
634 4 
35116 
3665 
1265 
7301 
107 
1263 



"3 



P377. 

C14^, 
RUBlTi 
M143, 
ROT. 



/ 

/PART 

/SETT 

/ 

CGETX 



ll-JANji?71 

CMA lAC CLU 
T* . P13 
TAP AX IN 
SNL CLA 
JMP I PCKl 
ERR0R2 

40 

377 

140 

RUSl 

•140 

RTL6 /(£AE) 

DCa qadd 

CMA 

OCA XCTIN 

JMP I PCKl 



OF INTERFACE TO FlOI TO ALLOW 
JN5 or CHARS FROM TEXT 



23106 PAGE U\ 



/RESPRVATIOiVS FCR PUSM-OOWM LIST 



/FULL BUFFER 



.*1 



getc 

tAD 
6213 

JMP I 

CGETRET 
ERRFiLi ERR0R4 
LM| PUSHJ 

EVAL"1 

JMS I INTEGER 

6212 

JMP 1 

LMAKE 
BY 8k 



CHAR /••••«••• 

/CIF COF 10/»»*«»*»« 



i»l 



/USED 
• 260n 
/INTE 

savac 

SAVLK 
MBREA 
INTRP 



/•••«*»•• 
/•••••t«« 

/• 
/# 
/« 
/* 
/# 
/» 



Rrupt processor, 

/CONTENTS Of AC 
/CONTENTS OF LINK 
»2S3 /CONTROl-C 



DCA SAVAC 

RAR 

OCA sAVLK 

TSF 

JMP KINT 

tCF 

DCA TELSW 

TAO I OPTRI 

SNA 

JMP 

IPC 

DCA 

OCA 

TAD 

lAC 

AND P17 
TAO OPTR0 



/SAVE WORKING DATA 



/GIVE OUTPUT PRIORITY 



/TUR\i OFF THE IN-PROGRESS FLAG, 



KINT 

TELS^ 
I OPTRI 
OPTRT 



/DONE 

/TYPF NEXT. 
/CLEAR AC AND TURN 
/2ERn OUT THE DATA 



on THE FLAG, 

AREA 



i^^iiiWHl 



Miillii 



1596 

1597 

1598 

1999 

16.-^0 

16211 

1612 

1633 

1604 

1605 

16n6 

16?7 

160S 

16Z9 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 



J. 4 - s; M "I " ' I 



CO •«;<!> 



H«Ut iatfV 



U 

?6?5 
7636 
76?7 
763r 
?6?1 
?632 
?633 
?6:<4 

?635 
?636 
?637 
?64P 
5641 
?642 
?643 
?644 
?645 
?646 
?647 
?65e 
S651 
?652 



?653 

2654 
?655 
9656 
?657 
?660 
J661 
3662 
?563 
?664 
?6A5 
2666 
2667 
?67CI 
?671 
?672 
?673 
2674 
?iS75 
?676 
?677 
?70vl 
?7?1 

?7!'«2 

?703 
2734 
2705 
?7?'6 
?737 



3265 

6a3i 

f246 
6 5 36 
, 1-.-6 
745<il 
5246 
1123 
3262 
1262 
32Z2 
765'^ 
534? 
lf^34 
7640 
4566 
1262 
3334 
6151 
5253 
6135 
725if 
3261 



6244 

1201 
7104 
1200 
6f01 
54f!0 
','000 

3120 
3120 
3120 
'^030 
1C»34 
7450 
4574 
3276 
3334 
1276 
5666 
■■3?I0 
3266 
6Jfl 
1664 
7643 
4574 

6»'e2 

1316 
7640 
5314 



KINT. 



OCA 

Ksr 

JMP 
KR9 
AND 
SNA 
JMP 
T*0 
OCA 
tAD 
TAO 
SNA 



OPTRI 



EXIT 
P177 



EXIT. 



EXIT 

C200 

SIN 

SIN 

HBREAK 

CLA 
JMP RECOVR 
TAD INBur 
SiA CLA 
ERRCIR2 
TAO SIN 
DC A iNBur 
CLSK 



JMP 
CLSA 
CUA 
OCA 



NOCUK 



CLKFLG 



/C^^fK FcR KEYBOARD FIRST 

/REa-^ buffer and clear FLAG TO FETCH J^EXf 
/IGNORE BLANK AND L-T AMD PARITY BIT. 



/MANUAL STOP? 

/ANY SPACE? 

/WILL WAIT FOR OUTPUT BUFFER 

/SAVE INPUT 



/ 

/KW12 CLOCK INTERRUPT RqUTInC 

/ 

NOCLKf 



EXiTJi 

clkflc; 

SIN, 

OPTR0# 

OPTRO» 

OPTRii 

XI33. 



XOUTLi 



RMF 

TAO 

RAL 

TAD 

ION 

JMP 





lOauF 

lOBUF 

108UF 



tAO 

SNA 

JMS 

OCA 

OCA 

tAD 

JMP 

SI 

DCA 

ION 

TAO 

52a 

JMS 

lOP 

TAD 

S2a 

JMP 



SAVLK 

CUL 

SAVAC 



I 



/OUTPUT 
/VARS 



/MODIFIED FOR PDP"5 

/•••••••• SET TO E-VERY INTERRUPT 

POINTERS 



INBUF 

I PWAIT 
XOUTL 
INBUF 
XOUTL 
I X133 

XI33 

I OPTRO 

CLA 

I PWAIT 

TELSW 

CLA 

.•5 



/VIA (INDEV) 
/ANY INPUT? 

/* * REFRESH SCOPE WHILE WAITJNC 

/••*••••» pOR INPUT 

/CLEAR INPUT Suffer 



/VIA {OUTDCV) 

/SAVE CURRENT CHARACTER, 

/BE SURE INTERRUPT IS ON, 

/ANY ROOM? 

/A cmaracter is N0N»ZER0 
/••«#•••• REFRESH SCOPE 

/IN PROGRESS? 



( 

/FOCl 12.3V 

1651 

1652 
1653 
1654 
3655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 

166^ 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 

1678 
1679 
1680 
1681 
1682 
1683 

168< 
1635 
1636 
1687 
1689 
1689 
1690 
I69I 
1692 
1693 
1694 
I695 
1696 
1697 
1698 
1699 
17:'0 
17.-'l 

17;j2 
1733 
17^4 
1705 



J 

?711 
?7l2 
?713 
?714 
?715 

iivh 

?7t7 
?72f 
?721 
?722 
2723 
2724 

?725 
2726 
2727 
273PI 
9731 
?732 
2733 
2734 
2735 
2736 
2737 
2740 
2741 

2742 

2743 

9744 

2745 

2746 

2747 

?750 

2751 

2752 

2753 

2754 

2755 

9756 

9757 

2760 

2761 

2762 

2763 

2764 

9765 

9766 

9767 

977P 

9771 

2772 

2773 

9774 



014110 V?33 



1266 
6146 
3316 
5323 
1266 
?664 
j264 

70ai 

■.'1^7 
1263 
3264 
6001 
5676 

3326 

7240 
l326 
3«I67 
6031 
1316 
7640 
5333 
6002 
5342 
1123 
3267 

1105 

3057 

7040 

1263 

3010 

2016 

7 000 

341PI 

2057 

5351 

3034 

1263 

3265 

1263 

3264 

7940 

6tM6 

H31 

4551 

4553 

;^!'.22 

i422 

7 450 

5377 

5^67 

Jiai 

4551 



ll-JAf'-r71 

T*- XI33 



TLS 
JMO 



,♦12 

TAn XI33 

DCi I OPTPC 

TAD OPTRC! 
lAC 

ANfl P17 

TAP) 0PTR5) 

oca optro 

jmp i xcutl 
/error recovery proce 
errors; oca 1*1 

ERR2. a 

CLA CMA • 

tAb ERR2 

DCA LIMENO 

IOn 

TAD TELSW 

S2A CUA 

JMP ,»2 

-lor 

JMP ,*3 

RCCOVR; tAO C200 

DCA LlNENO 



23136 PAGE l<"3i? 

/NO 

/TYPE CHARACTER, 

/SET IN^PROCRESS TlAC, 

/RETURN 

/semo oata 

/SET PO'inTERS 



EDuRE 

/ERROR CALLED FROM A TABLE 

/LIMIT EXCEEDED ^ ^^ ^^„, 

/COMPUTE CALLING ADDRESS (ALSO "SPACE") 

/AND USE IT aS error mUMBER, 

/SAVE ERROR CODE. „ ,,^,^ 

/ (JMP.M) «■ rOR DEBUGGING 

/WAIT FOR OUTPUT TO FINISH 



/DISABLE INTERRUPT FOR INlTI ALIZATIOnS 



/•••* 



RECovx; 



TAD M20 

DCA CNTR 

CMA 

TAD OPTPei 

OCA AXIN 

1S2 TELSW 

CDF 

OCA I Ax IN 

IS2 CNTR 

JMP ,»2 

DCA iNBur 

TAO OPTRi? 

DCA OPTRI 

TAD OPTR'? 

DCA OPTRO 

CMA 

TLS 

TAD P77e0 

PRINTC 

prntln 
ISg PC 
TAO 1 PC 
SNA 

JMP ,*6 
DCA LINENO 
TAD P77?3 
PRINTC 



/SAVE ERROR NUMBER 
/SETUP INIT COUNT 



/INIT I/O BUFFERS! 

/• 

/{X»^EM RESET) 



/INIT KEY-BUFR, 
/INiT TTY POINTERS. 



/PREPARE A STOP 9lT FOR TTY 
VANQ RAISE FLAG, (NOP) 
/MAKE A "?'», 

/ANo TURN ON The interrupt 

/PRINT ERROR NUMBER A^iDl 
/UNLESS IT IS HEROi {X-MEM> 



/PRINT ATSIGN 



FOR DEBUGGING 



/rocLi? 

17:6 
17.-7 
17,''8 
17:-9 
1710 
1711 
17l2 
I7i3 
1714 
1715 
1716 
1717 
1718 
17l9 
1720 
1721 
1722 
1723 
1724 
1725 

1726 
1727 
1729 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 

1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 

1750 

1751 

1752 

1753 

1754 

1755 - 

1756 

1757 

1758 

1759 

1760 



% 



75 

?776 
?777 

T T -I 1 

v" •. •- ■- 

.•< r .^ 1 

3,--^2 

:^r:33 

3 ? ? 4 

33?6 

37v*7 

3'^ll 
3,-»l2 
3?13 
3?14 
3/115 
S?16 
3P'l7 
3k^20 
3^21 
3222 
3B23 
3{«24 
3025 
3026 
3fi27 
3C30 
3fl31 
3032 
3f(33 
3034 
3?35 
3036 
3037 
3(^40 
3041 
3f!42 
3l?43 
3P<44 
3B45 
39<46 
3^47 
35)50 
3ft51 

3i^52 
3;i'53 
3PI54 
3^55 
35156 
3357 
3f16« 
3?61 



4551 

»;553 
:a77 
4551 
1126 
3152 
5177 

3 062 

764^ 

5214 

Ii!l0 

7(M1 

1027 

772'PI 

5641 

1251 

4551 

1010 

3371 • 

7300 

2062 

5242 

1471 

rl22 

1103 

7640 

5237 

7040 
3062 
7040 
1'2H0 
3010 
1471 

a^i 

3061 
5641 
2530 
1471 

■ in 

1006 
7640 
5231(1 
3471 
5231 
.334 

U''60 
333!^ 
1331 
7^41 
103D 
7650 
5541 
143B 



VSCI3 



ll-JAN-7a 

PRINTC 



23136 PAGE 



m 



PRnTUN 
TAD CCR 
P9iNTC 
TAn PTCM 
DCa ROIV 

jmp start 
/chraCter removal ROU 

RUBl,, TAD XCTIN 
Sil CLA 
JMP ,*6 
TAO AXIN 
CIA 

TAD PACKST 
SMA CLA 
JMP 1 RUB5 
TAD SPLAT 
PRiNTC 
tAD AXJN 
OCA T2 
CDF T 
ISH XCTIN 
JMP RUB2 
TAD I T2 
AND P77 
TAO m77 
SHA CLA 
JMP RUB4 

RUB3. CMA 

DCA XCTIN 

CMA 

tAD AXIN 

DCA AXIN 

TAO I T2 

ANn P7700 

RUB4. OCA QADD 

JMP I RUS5 

RUBS, PACX 

RUB2i TAO I T2 
AND P7700 
TAD CX00 
SZA CLA 
JMP RUB3 
DCA I T2 
JMP RUB3*1 

SPLATi 334 

/SYMBOL tABLE TYPEOUT 

TDliMPi .TAO STARTV 
OCA PTl 
TAO lASTV 
CIA 

TAD PTl 
SNA CLA 
POPJ 
TAO 1 PTl 



/PRP'T SPACE ^PlN ANO 
/PT'T LIME 0^ ERROR. 



/RESfT "READC" 
/IF AN> ERROR OCCURS. 
/INTERRUPT WILL BE RE-ENABLEO SOON'," 
TI\C 

/RUaiUT ONE LETTER 



/TEST NULL LINE 

/PORA RUBOUT ACKNOWLEDGEMENT 



/(X.mEM> 

/TEST HALF 



/"AOD" IS FULL. 

/TEST FOB EXTEND 
/SET SWITCH 
/BACKUP POINTER 

/RESET ADD 



/CHECK FOR EXTENDED 



/SAVE CORRECTION 



Routine 

/INJT pointer for SYMBOL DUMP,{X»MEM) 
/TEST FOR ENO OF LIST 



/GET THE VARIABLE 



^mmam 



B^Z 



/rOCLl2.37^ :IAL1^ V,'y3 11-JAN*71 23t06 PAGE 1» 

1761 7;.'«2 3316 DCa 0P*1 /(Oca J (AJ-rOKfyMEM) ) ISAVE NAME 

1762 .■^i^63 <3l5 TAP oP /SET'iP Ur,.PACK POINTERS 

1763 %?{,4 3.T17 DCA AXOUT 

1764 .T.'65 ?,"'2.^ OCA XCT 

1765 ■ 3r(S* 4545 r.ETC /REAP AN'o PRlNT "XX(" 

1766 ^■•(,7 4551 PRifJTC 

1767 ,•^,-7!' 4545 GETC 
1769 3f71 4551 PRiNTC 

1769 3C72 4545 GEtC 

1770 3J573 4551 PRiNTC 

. 1771 3P74 ?n30 IS2 PTl 

1772 3^75 l435? TAD I PTl /PRiM SUBSCRIPT TO 99 

1773 3f^76 4714 JMS I PRNT2 

1774 3:377 4545 GETC /PRiMT ")" 

1775 310!? 4551 PRTNTC 

1776 3iPl 2?3e IS2 PTl 

. 1777 3102 4407 riNT /PICK UP VALuE 

1778 31("3 .;43t! rCET I PTl 

1779 31P4 '030 FXlT 

1780 3ii;75 4533 JMS I rouTPUT /PRI^lT VALUE 

1781 3106 15577 • TAO CCR 

1782 31B7 4551 PRiNTC 

1783 31121 H^70 TAD GINC 

1784 sill nil TAD M2 

1795 3ii2 103i3 TAD PTl 

1786 3113 5253 JHP T0UMP*1 

1787 3114 2442 PRNT2I PRNT 

1758 3115 3115 OPi , / (X-MEM) 

1789 3116 "0eci 0000 / (X-MCM) 

1790 3117 5051 . 5051 /{ThCSE CO IN 10005 FOR X-MEM) 

1791 /OUTPUT CHARACTER BUFFER {AQHRESS IS A MULTIPLE OF 20J 

1792 3120 lOBur«3120 

1793 3140 COMEIN»1OBUF*20 /COMMAND • INPUT BUFFER 

1794 3236 C0ME0Ut»C0MEIN*46 
■ 1795 3206 •COMEOuT 

1796 32.16 r'^PSS TRST, C? /TExT POINTER 

1797 3237 c000 3000 /DUMMY LINE NQ, 

1798 3210 ';340 0340 /•••••••• 

1799 3211 ;i6l7 0617 /FO 
1600 3212 "331 0301 /CA 

1SC51 3213 1455 1455 /»•»♦#••« 

1632 3214 6162 FRSTX* 6162 /•••»•••• 

1803 3215 7715 77l5 /OUMMy CiR. 

^8"* /TO SAVE TEXT .SAVE C(BuFR>, C(LAStV)» AnO C( FRST TO CCBUFR)) 

18e5 /wITM 00T-JR46, THE TAoCS MAY BE TOGETHER WITH 

18?6 /THE Symbolic dump last I FqCAL ♦ float ♦ DIALOG , 

18a7 /LOADING THE LAST SECTION May BE CONSIDERED OPTIONAL, 

1808 3216 eUFf3EG». /TEXT BUFFER STARTS HERE. 

1639 36C0 •36n.' 

1810 3600 ?74l nil REC0VR*1/STARTInG AqDRESS 

1811 36(^1 '.2D3 BtGlNi TAD 01 /INITIALIZE ANY eiFAi-lLY COMPUTER, 
iai2 36(^2 3176 DCA START»i 

1813 3603 7^:10 NOP/dOPRESET) /••*•*••• 

1814 3604 4575 JMS I PCLEAR /•••••••• INITIALIZE POINT DISPLAY 

1815 3605 73nfi CLA CLL 



/r wuL ^£ , ^ f 



1816 


^^H ' 


18l7 


t>.:-j 


1818 


'*'..'' 


18l9 


?*ll 


1620 


yi'.z 


18?1 


MrlS 


1822 


?*' 4 


1823 


3*15 


1824 


361 i 


1825 


3617 


1826 


342S 


1327 


36 21 


1828 


3622 


1829 ,, 


3623 


1630 : 


3«24 


1831 


3t25 


1832 


3i26 


1833 


3627 


1834 


1633 


1835 


3671 


1836. 


3632 


1837 


3633 


1838 


3634 


1639 


3635 


1840 


3636 


1841 


3637 


1842 


3640 


1843 


3641 


1844 


3642 


1845 


3643 


1846 


3644 


1847 


3645 


1646 


3646 


1849 


3647 


1850 


3650 


1651 


3651 


1852 


5652 


1853 


3653 


1854 


3654 


1855 


3655 


1856 


3656 


1857 


3657 


1658 


3660 


1859 


3661 


1660 


3662 


1661 


3663 


1862 


3664 


1863 


3665 


1864 


3666 


1865 


3667 


1866 


3670 


1867 


3671 


1668 




1669 


4620 


1670 


4621 



T12. 



3414 
->"57 
?2.?6 

72^1 

^213 
3667 
1262 
3671? 
1263 
3671 
62.''1 
4666 
3655 
6212 
4664 
6211 
2430 
6211 
7420 
.■4?p 

6212 

4667 
3651 
6132 
6134 
7243 
6133 
1261 
6132 
6135 
7200 
6046 
6^01 
5650 
2216 

ntid 

v'030 
1-076 

.100 

,:025 
vni23 
(■'031 
.131 
5772 
5773 
7200 

7773 
7774 
7775 
7776 
7777 
462(5 
J4?45 
771P 



RITEOU; 



GBLOK* 



O101# 

G5772I 

057731 

G72n0i 

C7773I 

G7774» 

C7775» 

G7776* 

C7777» 

#465»n*2 

FEXP. 



OCA I FlTXR 

IS? CNTR/INITIAlIZED 8V lOAO. 

JMP ,t,2 /CLEAR INPUT BUFFER 

CLA /••«.••», pix [!P OiAL I/O ROUTINES 

6213 /CIF COr 10/»«»»»»»» 

DCA I G7775 /••«••••• 

TAD G5772 /#•••*••• 

DCA I r.7776 /••••#•»« 

TAD G5773 /•••••••« 

OCA I C7777 /••#•»»•• 

6201 /COF /•••••••• 

JMS I C7774 /««#•»••« 

GBlOK /•••••••• 

6212 /CIF m /••• 

JMS I G7200 /•••»•*•• 

6211 /COF le /•••••••• 

2400 /•••••••• 

6211 /COF 10 /•••••••• 

7400 /•••••••» 

40B /••«•«••• 

6212 /CIF 10 /••»•«•»• 

JMS I C7775 /••••#*•• WRITE MiLDREO INTO UPPER 

RITEOU /•••♦•••• SOURCE WORKING AREA 

CLLR /•#••••»* INlTlALliE CLOCK 

CLEN /••»•••»« 

CLA CHA /••»••»»« 

CLA8 /•••••••• 

TAD C101 /•*•••»•• 

CLLR /••»»»»•« 

CLSA /••♦••»•# 

CLA /••»••••« 

TL5 /•••••••» 

ION /••«••••• 

JMP I ,*1 /•••••••• 

ERT /•••••»•• ERASE ALL 

110 /••••*••• 

30 /•••••»•• 

76 /••#♦•••• 

2 /•••»••«• 

100 /•••••••• 

25 /•••••••« 

23 /••••••«• 

1 /••«•««•• 

101 /•••••••« 

5772 /•••••»•• 

5773 /#••••••• 

7200 /•*•«•••• 

7773 /•##••••« 

7774 /•«•••••• 

7775 /•••«»••« 

7776 /••••«••• 

7777 /•*•••••• 







GETSGN 
SPA CLA 



/TAKE ABSOLUTE VALUE 



/rOCLl2 


.^^ 


:Ulio 


V.';'3 


11-JAN'71 


1371 


<*?2 


4724 




J1S I NPGP 


1872 


'4?3 


3-133 




r:A t3 /c<si 


1873 


ii?A 


4 4:<7 




FINJT 


1874 


<i?5 


4313 




TMUL LG2E 


1875 


^ 6 ? '' 


*67 = 




FPUT I X2 


1876 


ii'i 


3 :i .1 




FCXT 


1877 


463a 


4453 




JM? I IMEGER 


1878 


**31 


3325 




DCi FLAG2 


1879 


1632 


4407 




FI\T 


16P0 


4633 


73?a 




FNOR 


1881 


4634 


4676 




, FPUT I XS02 


1882 


4635 


.675 




FGET I X2 


1883 


4636 


2676 




FSU9 I XSQ2' 


1884 


4637 


6675 


... 


FPU? I X2 


1365 


4640 


4675 




FMUL I X2 


1886 


4641 


6676 




FPUT I XS02 


1867 


4642 


i3ia 




FAbD OF 


1888 


4643 


6326 




FPUT TEMP 


1689 


4644 


335 




FCPT CF 


1890' 


4645 


3326 




FOtV TEMP 


1891 


4646 


2675 




FSU9 I X2 


1892 


4647 


1277 




PADD AF 


1693 


4650 


6326 




FPUT TEMP 


1894 


4651 


.'302 




FGCT BF 


1895 


4652 


4676 




FMUL I XSQ2 


1896 


4653 


1326 




FAOO TEMP 


1897 


4654 


6326 




FPuT TEMP 


1898 


4655 


;675 




FGET I X2 


1699 


4656 


3326 




FOiV TEMP 


1900 


4657 


4321 




FMUL TWO 


1901 


4660 


3 316 




FAOO ONE 


19S2 


4661 


nagg 




FEXT 


1903 


4662 


l325 




TAD FLAC2 


19f!4 


4663 


1044 




TAD FLAC 


1905 


4664 


3044 




OCA FLAC 


1936 


4665 


2033 




IS2 T3 


1907 


4666 


5536 




RETURN 


1908 


4667 


4407 




■ FIMT 


19k9 


4670 


6675 




FPUT I X2 


1910 


4671 


;-3i6 




FGET ONE 


19il 


4672 


3675 




FDiV I X2 


19l2 


4673 


■■a^a 




FEXT 


19i3 


4674 


5536 




RETURN 


19l4 






/consTan'ts roR rEXP 


1915 


4675 


5321 


X2, 


X 


19l6 


4676 


5325 


XS02. 


XSDR 


19l7 


4677 


■304 


Af. 


0004 


19i8 


4^00 


2372 




2372 


19l9 


47P1 


1 4ri2 




14:^2 


1920 


47?2 


7774 


sr, 


7774 


1921 
1922 


47t^3 
47P"4 


2157 
5157 




2157 

5157 


1923 


477.5 


312 


CF, , 


0012 


1924 
1925 


4706 
47P^7 


■^454 
343 




5454 
0343 



23106 PACE 1-34 



/C<SIC\')»-1 IF 1 X2<r 



/TAKF INTEGER PART 
/SAvr UOW ORDER DATA 



/roCLiZ,: 


H 


''ULIC 


M".^^ 


ll-JAN-71- 23106 


1926 


m. 


■ ;)'ji7 


or, 


(?0?!7 


19?7 


4711 


?566 




2566 


1928 


4712 


5341 




5341 


1929 


47*3 


'^SH 


lC2E. 


B001 ■ 


1933 


4714 


?7n5 




27555 


1931 


4715 


2435 




2435 


1932 


4716 


. C01 


ON'E, 


0001 


1933 


4717 


21?'00 




2000 


1934 


47?0 


■•00? 


\ 


00Z0 


1935 


4721 


i3e2 


TWO, 


{^0$»2 


1936 


47?2 


2Ci?f 




2000 


1937 


4723 


«30B 




0000 


1938 


4724 


5163 


NECP. 


rNEO 


1939 : 


4725 


■:d?Z 


rLAG2» 





1940 . 


4726 


■,•-000 


TEMP. 





1941 


4727 


■'003 







1942 


473? 


i-0S0 







1943 


4731 


•zm 




p 


1944 






/MAIN ALGORITHM FOR ARCTAMCC'JT 


1945 


4732 


4407 


arcalc; 


FiNt 


1946 


4733 


3675 




FGCT I X2 


1947 


4734 


4675 




FMUL I X2 


1948 


4735 


6676 




FPUT : XS02 


1949 


4736 


4374 




FMUL BET2 


1950 


4737 


1371 




FAbO 8ET1 


1951 


4740 


4676 




FMUL I XSQ2 


1952 


4741 


l366 




FAOD BETH 


1953 


4742 


6326 




FPUT TCHP 


1954 


4743 


.<363 




FCeT.ALf2 


1955 


4744 


4676 




FMUL J XS02 


1956 


4745 


1360 




FAbO ALFl 


1957 


4746 


4676 




FMUL I XS02 


1958 


4^47 


l355 




FAOO ALPZ 


1959 


4750 


4675 




FMUL I X2 


i960 


4751 


3326 




FDiV TEMP 


1961 


4752 


■.1300 




FEXT 


1962 


4753 


5754 




JMP 1 ,*1 


1963 


4754 


5024 




ARCRTN 


1964 






/CONSTANltS • fLOATlNG ARC TaN'G 


1965 


4755 


r.0?!? 


ALr?. 


0000 


1966 


4756 


2437 




2437 


1967 


4757 


1643 




1643 


1968 


4760 


7777 


AL^l. 


7777 


1969 


4761 


3304 




3304 


1970 


4762 


4434 




4434 


1971 


4763 


7773 


*Lf2. 


7773 


1972 


4764 


33^6 




3306 


1973 


47.^5 


?4'54 




.5Am 


U^-M 


i*>.s 


:ff^ 


UM^ 


rj-n'' 


1975 " 


4767 


?437 




2437 


1976 


477B 


1646 




1646 


1977 


4771 


■. Pie0 


BETl, 


?0Z0 


1978 


4772 


2427 




2427 


1979 


4773 


2323 




2323 


1980 


4774 


7'75 


eCT2, 


7775 



PAGE 



^^ 



/F0CLl2.:S7 

1981 

1982 

3993 

1984 
1995 
196 6 
19?7 
19pa 
19)=!9 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
20i3 
2014 
20l5 
20l6 
2017 
20l8 
2019 
2320 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2j;'32 
2033 
2034 
2035 



CULir' \)20Z 



ll^JA*^-?! 



23136 PA5E 1-36 



<S775 

4776 



■5 ^ r 1 
50'^2 
"5003 
5004 
•50^5 
5006 
5007 
9?10 
5011 
5012 
5ZI13 
5014 
5015 
5016 
5017 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5030 
5031 
5032 
5033 
5034 

5(135 
5036 
5037 
5040 
5041 
5042 
5(J!43 
5044 
5045 
5046 
5047 
5050 
5051 
5052 
5053 
5054 
5.'!55 
5056 
5057 
5060 
5061 



3427 

7<l52 

5'Z30 
1045 
7710 
4363 
3033 
4407 
6635 
2637 

■080 
1045 
7710 
5221 
4407 
r637 
3635 
6635 

•'000 
7240 
3362 
5623 
4732 
2362 
5634 
4407 
6635 

?636 
2635 
:^000 
5634 
5301 

5321 
5315 
4716 

1045 
7450 
4566 
7710 
4566 
4 407 
6756 
2637 

■.'000 

1045 
745f; 
5536 
77'/0 
5264 
4407 
637 
3756 
6756 



/rtOATj 
»5:"o:' 

A--T\, 



GOi 



arcrtn; 



3497 
7>fp2 

& o?lNT 

GETSGN 
SPA CLA 
J*^S fNEG 
DC* T3 
riMT 
rPuT I 
FSUB I 
FEXT 
CETSGN 
SPA CLA 
JMP CO 
FINT 
FCET I 
FDIV 
FPUT 
FCXT 
CUA 



ARC TA-^nEiNT 



/TAKE ABSOLUTE VALUE 



XI 
CONl 



/LESS THAN ONE 



COM 

XI 

XI 



OCA 

JMP 



EXlTli 



IS? 

JMP 

FINT 

FPuT 

FGET 

FSUB 

FEXt 

JMP I 

EXiT2 



CMA 
FLACl 
I .♦I 

APCALC 
FLAGl 
I EXITI 



/SIGM FLAG OF RESULT 
/CALL ALGORITHM 

/RETURN HERE 



XI 

PI2 

XI 



1*1 

/COwSlANtS FOR ARCTANGENT 



XI, 

PI2, 

CONl. 

FLOG. 



X 

PIOT 

ONE 

GETSGN 

SNA 

ERR0R3 

SPA CLA 

ERR0R4 

ri^jT 

FPlJT I 

FSuB 1 

FEXT 

GETSGN 

SNA 

RETURN 

SMA CLA 

JMP STARTL 

FI^JT 

FCeT .1 CONl 

FOiV I TEM 

FPuT I TEM 



/FLOATING LOGARITHM 

/ZERO ARCUEMENT FOR LOG 



/• 



TEM 
CONi 



Mliiiiiitilliiiiiiiiiii 



riOCtlS 


•%. 


:. ULif^ y:s?z 


H..JAN-71 


2?36 




1 


TEXT 


2037 


srts 


724 




CLA CMA 


2.?38 


5^64 


'>^3 


5 stabtl; 


DCA T3 


2(^39 


•=.'65 


!?'' 




TAn P13 


2040 


5:66 


3/'4 




•JCi FLAC 


2?!4l 


•;--'67 


7,M 




CMA 


2:^42 


5^,70 


175 




TAD I TEM 


2043 


5.'71 


3/14 




DCA TLAC*! 


2^44 


5,-'72 


r,u 


> ^ 


, OCA rLAC*2 


2.'i45 


5373 


y.C.A 




OCA FLAC«3 


2246 


5.'"74 


i^e 




lAC 


2047 


5^75 


375 




DCA ! TEM 


2048 


5376 


440 




FIMT 


2049 


, 5077 


435 




FMUL L0C2 


2050 


■ 5100 


663 




FPUT I XI 


2?51 


5101 


■75 




rCET I TEM 


2052 


5ie2 


263 




FSUB I COM 


2053 


5103 


675 




rPuT I TEM 


2254 


51K4 


435; 




FMUL U0G8 


2355 


5iP5 


l35l 




FAOO L0C7 


2056 


5106 


475i 




TMUL I TEM 


2057 


5107 


134! 




FADO L0G6 


2058 


5110 


475< 




FMUL I TEM 


2059 


5111 


134; 




FAOO L0C5 


2060 


5112 


475< 




FMUL 1 TEM 


2361 


5113 


133: 




FAOO 14 


2062 


5114 


475< 




FMUL I TEM 


2063 


5115 


l33^ 




FAOO L3 


2064 


5116 


475d 




FMUL I TEM 


2065 


5117 


J33J 




FADO L2 


2066 


5120 


475< 




FMUL I TEM 


2067 


5121 


l32< 




FADD LI 


2068 


5i22 


475e 




FMUL I TEM 


2069 


5123 


163J 




FADD I XI 


2070 


5i24 


;1005 




FEXT 


2071 


5125 


563^ 




JMP I CXITI 


2072 


5126 


/PI0C 


Ll* 


0000 


2073 


5127 


3777 




3777 


2074 


5130 


7742 




7742 


2075 


5i31 


7777 


L2i 


7777 


2076 


5132 


4 00fl 




4000 


2077 


5133 


4100 




4100 


2078 


5134 


7777 


L3. 


7777 


2079 


5135 


2517 




2517 


2060 


5136 


i.3ie 




(?310 


2081 


5137 


7776 


l4. 


7776 


2062 


5140 


4113 




4113 


2083 


5141 


7211 




7211 


2084 






/LOGARiTHM CONSTANTS 


2085 


5142 


7776 


L0C5, 


7776 


2066 


5i43 


?5S5 




2535 


2P87 


5144 


3301 




3301 


2088 


5145 


7775 


L0C6. 


7775 


'^& ^. f*-. 


<■ r 






J 'f 4 6 


V ^-^ V -^ 


' r ; 7 


■ ■' ■■ 4 




J771 



23106 PAGE ii 



/F0Cl12,?7 JlALir' VV.3 llijAN- 71 23106 P4CEl«»38 

22!91 5152 7774. L0G7, 777'. 

2{?92 5151 2236 2' '6 

25593 5152 43-14 ^Ji"* 

2!?94 • -^i^JS 7771 L058, 7771 

2395 5154 '•.544 4544 

2096 5155 -735 1735 

2097 15156 4726 TEm, TEmP 
2!398 5157 :•«?•? L0C2. '^ 
2099 5163 2613 26l3 
2l?2 5161 4414 4414 
2131 5162 iS'eo FLAGl* Z 
2102 5163 :-CPf FNEG. n 

2ia3 5164 4451 JMS 1 MINSKI 

2l!^4 5165 7240 CLA CMA 

2105 5166 5763 JMP I FNEG 

. 2106 5167 6213 LOi 6213 /CIF CDF l,0/»««*#*»« 

2107 ■5170 5126 JMP XLO /•••••«•• 

2ia9 5171 6213 LC# 62l3 /CIF CDF If/******** 

2109 5172 5130 JMP XLC /••♦■••••• 

2110 5i73 6213 LLi ■ 62l3 /ClF COF 10/«««»»t»» 

2111 5174 5132 JMP xLL /••••••»# 

2112 /FLOAliNG POINT SINE AND COSINE 



Ilii 



2115 

2116 5177 •5177 

2117 5177 4407 FCOS. FINT /COS (X ) ■SIN<Pl/2-X) 

2118 5200 6321 FPUT X 

2119 5201 ;'3l5 FGCT PIOT 

2120 5202 2321 FSUB X 

2121 5203 0000 FEXT 

2122 5204 1045 FSIN. GETSCN 

2123 9205 7740 SMa SiA CLA 

2124 5206 5214 JMP MQD 

2125 5207 1045 GETSGN 

2126 5210 7700 SMa CLA 

2127 5211 5536 RETURN /YES SIN(0)"0 / 

2128 5212 4451 JMS I MlNSKl 

2129 5213 7040 CMA /NOtSINjiXjsiSlNf X) 

2130 5214 3033 MOO, DCA T3 

2131 /REDUCE X MOOULO 2 PI 

2132 5215 44?,7 FiNT 

2133 5216 3305 FOiV TWQPI 

2134 5217 6325 FPuT XSOR 

2135 5220 ;'000 FEXT 

2136 5221 4453 JMS I INTEGER 

2137 5222 4407 FIMT 

2138 5223 7000 FNOR 
213? 5224 6321 FPyT X 

2140 5225 ^:'325 FGET XSOR 

2141 5226 ?321 FSU8 X 

2142 5227 4305 FMUL TWOPI 

2143 '^PSa 6321 FPuT X 

2144 5231 2311 TSUB PI /X<PI? 

2145 5232 ^g? FEXT 



■Milllllliiii 



/rocLis 


•%. 


ClALlC 


V?i'3 


ll.JAN-71- 


23106 


2146 


•V345 




GEtSGN 




2147 


5?34 


77li^ 




SPA CLA 




2148 


5?.^5 


5244 




JMP PCHECK 


/YES 


2149 


5236 


44^7 




PlS'T ■ 


/NO, SIN 


2150 


5237 


6321 




rPuT X 




2151 


5?43 


, 'JiiP 




TEXT. 




2152 


5?41 


1033 




TAD T3 


/INVERT 


2153 


5?42 


7340 




CMA 




2154 


5243 


3033 


% 


DCA T3 




2155 


5244 


4407 


PCHECK, 


riMT 


/X<PI/2? 


2156 


5245 


321 




rGET X 




2157 


5246 


2315 




FSUB PIOT 




2158 


5247 


•30? 




FExT 




2159 


5250 


1045 




GEtSGN 




2160 


5251 


7710 




SPA CLA 




2161 


5252 


5260 




JMP PALC 


/YES 


2162 


. 5253 


4 437 




riNT 


/NO 


2163 


5254 


.■;3ii 




FGCT PI 


/SlN<X)f 


2164 


5255 


2321 




rsuB X 




2165 


5256 


6321 




FPUT X 




2166 


5257 


'?000 




TEXT 




2167 


5260 


4407 


PAL5. 


riNT 




2168 


5261 


L'321 




rccT X 




2169 


5262 


3315 




roiv PIOT 




2170 


5263 


6321 




FPUT X 




2171 


5264 


4321 




FMUL X 




2172 


5265 


6325 




FPUT XSOR 




2173 


5266 


i'33l 




FCET C9 




2174 


5267 


4325 




FMUL XSOR 




2175 


5273 


l335 




FADO C7 




2176 


5271 


4325 




FMUL XSOR 




2177 


5272 


1341 




FADO C5 




2178 


5273 


4325 




FMUL XSQR 




2179 


5274 


1345 




FADD C3 




2180 


5275 


4325 




FMUL X80R 




2181 


5276 


l3l5 




FADD PIOT 




2182 


5277 


4321 




FMUL X 




2183 


5300 


^aa^ 




FEXT 




2184 


5501 


2033 


EXIT2# 


IS2 T3 




2185 


5302 


5536 




RETURN 




2186 


5303 


4451 




JMS I MINSKI 




2187 


5304 


5536 




RETURN 




2188 






/co^jstamts *nd pointers 




2189 


53JI5 


1-003 


TWOPIi 


0003 




2190 


5306 


3110 




3110 




2191 


53f)7 


3756 




3756 /(S755) 


• For 4. 


2192 


5310 


3235 




3235 




2193 


5311 


t-C02 


PIi 


0002 




2194 


5312 


3110 




3110 




2195 


5313 


3756 




3756 




2196 


5314 


3235 




3235 




2197 


5315 


',:331 


PIOT, 


O0!51 


/USED BY 


2198 


5316 


3110 




3110 




2199 


5317 


3756 




3756 




2200 


5320 


3235 




3235 





PAGE 



1^ 



SIN(X-PI}»-SIN(X) 



THE SIGN 



■SIN(Pl»X> 



WORD 



SINE AND COSINE 




/rOCLl2.77 



lALl'T V^'^S 



ii^jA^; 71 
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22C1 
22v'2 
22<'3 
22"^ 
22C5 
22C6 
22ri7 

22e8 

22P9 
2210 
2211 
22l2 
2213 
2214 

22l5 

22l6 
2217 
22ie 
22i9 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
223Z 
2231 
2232 
2233 
2234 
2235 

2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 



2252 
2253 



5:!2i 

?.'»22 

^7?3 
«3?* 
';:»25 

«!26 
■32 7 
533? 

5331 
5332 
5333 
5334 
•5335 
5336 
5337 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5353 



5351 
5352 

5353 
5354 
5355 
5356 
5357 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
3367 
5370 
5371 
5372 
5373 
5374 

5375 
5376 
5377 



ret' 

7764 

25S1 
7'^15 
1342 
7771 
5464 
5514 
6150 
7775 
2431 
5361 
4736 
i'000 
5325 
,'414 
3167 



4540 
1612 
4437 
4375 
•.2f!0 
6132 
6134 
4453 
6133 
72P0 
1306 
6132 
1123 
6134 
1374 
6132 
7200 
5773 
-611 

46??!0 
:0i17 
4730 



I <-■ I •.. L 

?0Z»3 

0000 
?000 
0000 

/SiME CONSTANTS 
C9, 7764 

2501 

7015 

1042 
C7i 7771 

5464 

5514 

6150 
C5i 7775 

2431 

5361 

4736 
C3i 0000 

5325 

0414 

3167 
/END OF EXtENDED FUNCTloNSi 
/ 

/HANDLES 1 1 EXPRESSION 
/SETS CLOCK ACCORDING To EXPRESSION 
/ 

setclk; pushj /•••*•••» 

EVAU-l /»•••*•*• 

FINT /••»••••• 

TMUL MHUNDRO /••»»•••• 

FEXT /•••#•♦•• 

CLLR /•*•••••• 

, cLEN /••#•»»•# 

JMS I INTEGER /••••••*• 

CL4B /•»••*«•• 

CLA /•##»••»« 

TAD C100 /•••••••• 

CLLR /•••»•••• 

TAD C200 /•§#••••• 

CLEN /••♦••••• 

TAD 04600 /•••••••* 

CLLR /••••#••• 

CLA /••••••♦• 

JMP I ,*1 /•••••••# 

pRnc /•••#•••• 

046!«l'» 46S!0 /»•••••*• 

MMUNORDi7I4700I0 /••••»••• 



/PAGE 1 - INPUT/OUTPUT ROUTpiES FOR THE FOCAL 
/FLOATING POINT PACKAGE'. 



/F0CLl2.i 

2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2260 

2281 
2282 
2283 
2284 

228? 
2286 
2287 
2288 
2289 
2290 
2291 
2292 

I-' '^-, .-i ■* 
•i £ r ■^' 

2295 
2296 
2297 
2298 

2299 
2300 

23fl 
23^2 
23?!3 
2304 
23^5 
23i!6 
23G7 
23?8 



OULliU vnfi3 



li;jAN-7l 
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54J'J 
5401 
54212 
5423 
54f!4 
5405 
5406 
5407 
541?l 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5423 
5421 
5422 
5423 
5424 
5425 
5426 
5427 
5430 
5431 
9432 
5433 
5434 
5435 
5436 
5437 
5440 
5441 
5442 
5443 
5444 

5445 
5446 
5447 

5450 
5451 
5452 
5453 
5454 
5455 
5456 



54P0 
-236 

3334 
1352 
4557 
•122 
3032 
1032 
7041 
7450 
1326 
3335 
1S?52 
7450 
5241 
1122 
3333 
1335 
l333 
7510 
5230 
7240 
1032 
3333 
7040 
1033 
7500 
7200 
1032 
7510 
5263 
1326 
7500 
72H0 
1327 
3071 
1731 
1071 

3336 
1371 
7041 
3371 
1325 
2736 
r736 
l330 
7710 
5265 



/IN THE COMMENTS 3ElO«I,- 
R OF DIGITS t 
R OF DECIMAL 

AL Exponent 

R OF PLACES ^ 
EO PEFORE DEC 



Jg] 



F 

D 
£ 
P 



NUMBC 
NIJMBFI 
OECIMJ 
NUMBE' 
PRINT! 



/ 

/ 

/ 

/ 

/ 

• 5430 

DIGITS«6 

TCO, \ 

DCa 

tad 
rtli 

AND 
DCA 
tAb 
CIA 
SNA 
TAD 
DCA 
TAD 
SNA 
JMP 
AND 
DCA 
TAD 
TAD 
SPA 
JMP 
CLA 
TAD 
OCA 
CMA 
TAD 
SMA 
CLA 
tAO 
SPA 
JMP 
TAD 
SMA 
CLA 
TAD 
DCA 
TAD 
TAD 
OCA 
TAD 
CIA 
DCA 
TAD 
IS2 
tAD 
TAO 
SPA 
JMP 



? 9E OUTPUT 
"LACES 



EMApilNC TO 8E 
IMAl POUT 



■ FISW 

■ OECP 
• BEXP 



n6, 



RET, 



SCOUNT 
FISW 

*P77 
Tl 
Tl 



MD 

FCOUNT 

FISM 

R6 
P77 

OECP 

FCOUNT 

OECP 

.*5 

CMA 

n 

OECP 
T3 



n 

FPRNT«2 
mO 



RN02 

T2 

I BUFST 

T2 

PLCC 

T2 

T2 

K5 

I PLCE 

I PLCE 

0Mi2 

CLA 

FPRNT 



/NUmBE« or DECIMAL DIGITS OUT 

/SAVE MAX, NUMBER OF DIGITS AVAILABLE 



•SET COUNTS* 



/NO, COMPUTE riELD SIZES 



/<JMP FPRNT) • FOR NO R0UN06IN, 

/FLOATING OUTPUT? 

/YES. ROUND OFF TO MAX, NO. PLACES 



/ F^O > ? 
/YES 

/NO, 

/MAKE ■ F-l 

/COMPARE DECIMAL EXPONENT 

/ F,0 > E? 

/NO, ROUfvD OFF TO '.'F PLACES 

/YES 

/ 0*E < I 

/YES. NO ROUN'OING NEEDED, CO TO PRINT 

/NO, ROUND TO D*E PLACES. 

/TO A MAXIHU" OF D PLACES 

/ •ROUND Uf • , 

/SAvE NUMBER*! OF PLACES TO ROUND TO, 

/SET UP BUFFER ADDRESS AT WHICH 
/ROUNDING OFF SHOULD START 

/SET UP COUNT OF MAXIMUM NUMBER 
/OF CARRIES ALLOWABLE 
/LITTLE EXTRA ON FIRST DIGIT, 
/ADD 1 TO OIGIT AT CURRENT POSITION 



/CAR">Y REQUIRED? 
/NO, GO TO OUTPUT 



^ / 



/F0CLl2.:«T CULIO v3H3 llijANt.71 

23«9 • ?«5^ 3736 DCA I PLCE 

2310 54*': ?^7l ■ iS? T2 

2311 ?**: 5321 JMP OECR 

2312 «i*J ^736 ISZ 1 PLCE 

2313 54*3 ;n-i33 IS? T3 

2314 ei64 72^0 CLA 

2315 5465 1^*52 rPRNT» tAD 

2316 B4A5 7J5M SNA 

2317 »4i7 5356 

2318 "5473 \335 

2319 5471 iJ33 

2320 5*72 754CI 

2321 5473 5355 

2322 5474 i333 

2323 5475 7500 

2324 5476 7293 

2325 5477 7341 

2326 5!3?l ifl33 

2327 5531 7341 

2328 5522 32'32 

2329 5523 1033 BACKJ 

2330 5534 1332 

2331 5525 7650 

2332 5.536 5343 

2333 5537 1032 

2334 5513 7f»01 

2335 5511 7710 

2336 9512 ll05 

2337 5513 4336 IN» 
2333 5514 2032 

2339 5515 5303 

2340 5516 1102 

2341 5517 4551 

2342 5623 5303 

2343 5521 7340 DECR, 

2344 5522 l336 

2345 5523 3336 

2346 5524 5252 

2347 5525 .;«0g4 k5i 

2348 5526 7772 MDi 

2349 5527 '.^^07 RND2, 

2350 5530 7766 0M12| 

2351 5531 6153 BLIFST* 

2352 5532 6154 OPUT, 

2353 5533 , 3P0 OECP. 

2354 5534 .'0fie SCOUnTJ 

2355 5535 :'000 rC0U^4T; 

2356 5536 PLCE»i 

2357 5536 ;flC;' OUTa, ? 

2358 5537 4732 JMS I OPJT 

2359 5540 2333 ISH FCOUnT 

2360 5541 5736 JMP I OUTA 

2361 5542 56?C! JMP. I TGO 

2362 5543 7040 DIG, CMA 

2363 5544 1033 TAD T3 



FISW 

CLA 
JMP FLOUT 
TAD FCOUWT 
TAD T3 
SMA S2A 
JMP FLOUTol 
TAD DECP 
SMA 
CLA 
CIA 
TAD 
CIA 
DCA 
TAD 
TAD 
SNA 
JMP 
TAD 
lAC 
SPA 
TAO 
JMS 
ISH 



T3 

Tl 

T3 

Ti 

CLA 

DIG 

Tl 

CLA 

M20 /YES. 

OUTA 
Tl 



PLCE 
PLCE 

RET 



JHP BACK 

TAD PER 

PRiNTC 

JMP BACK 

CMA 

TAD 

DCA 

JMP 

4 

"DIGITS 

DIC,ITS*1 

-i2 

SADR 

OUTOG 





C 



23IZI6 PAGE 1-42 

/YESi MAKE CURRENT DIGIT HEBO 

/BEGINNING OF BUFFER REACHED? 

/SO, DECREMENT BUFFER ADDRESS AND REPEAT 

/YES» SET MANTISSA TO 0,1 

/COMPENSATE BV INCREMENTING EXPONE^T 



/AUTO'-INOEX REGISTER ALREADY SET, 

/ F 1 7 

/YES, OUTPUT AS FLOATING NUMBER 



• PRl\iT# 



/ E > F ? 

/Y5:s. CONVERT 



TO E FORMAT 



/ E < r»o 7 

/NO, TAKE P • E 
/YES. TAKE P ! F«D 



/SET UP MINUS P 
/PRINT DO, ODD 



/ P 9 

/YES. 

/NO, 



E 7 

PRINT DIGIT 



/ P > 1 7 

Take space {240»26g)i otherwise 2ER0 
/PRI^'T character 
/p characters printed? 

/NO 

/YES. 

/PRI^'T DECIMAL POINT 

/BACKUP TO TOP OF BUFFCR. 



/MQpiriABLE LOCATIONS 



/MOOiriEO REGISTERS, 
/PRp.'T CHARACTER 

/F CMARACTERS PRINTED? 

/NO, RETURN 

/YES. NUMBER FlNSHED 

/REDUCE E, BY I 



V* 



/F0CL12, 


S^ 


OlALlf' 


V?Pi3 


11- 


JANs7l 


2364 


m^3 


3fH33 




OCa 


T3 


2S65 


■5546 


?334 




IS? 


SCOUNT 


2366 


5547 


?353 




JMP 


,*4 


2367 


5553 


7('^4;i 




CM4 




2368 


5551 


3334 




DCa 


SCOUWT 


2369 


5552 


5313 




JMP 


IN 


2370 


5553 


1414 




TAD 


I FLTXR 


2371 


5554 


5313 




JMP 


IN 


2372 






/DO FUOATIN'G OUTPUT 


2373 


5555 


7200 




CIA 




2374 


5556 


4732 


ri.ouT» 


JMS 


I OPUT 


2375 


5557 


1132 




tAD 


PER 


2376 


556Z 


4551 




PRjNTC 


2377 , 


5561 


2200 




is; 


TQO 


2378 


5562 


1414 




tAO 


I TLTXR 


2379 


5563 


4336 




JMS 


OUTA 


2380 


5564 


2334 




IS2 


SCOUMT 


2381 


5565 


5362 




JMP 


,-3 


2382 


5566 


704R 




CMA 




2383 


5567 


3334 




OCA 


scount 


2334 


5570 


5363 




JMP 


.•? 


2385 


5571 


,•■000 


absolv; 







2366 


5572 


1345 




tAD 


WORD 


2387 


5573 


3059 




OCA 


SIGNr 


2388 


5574 


1045 




TAD 


HORO 


2389 


5575 


7710 




•SPA 


CLA 


2392 


5576 


4451 




JMS 


I MInSKI 


2391 


5577 


5771 




JMP 


I ABSOLV 


2392 






/DOURLE 


PRfClSlON DEC 


2393 






/.INPUT 


AND CONVERSION 


2394 




5600 


•5600 






2395 


56?>0 


n000 


oeconv; 







2396 


5601 


3046 




OCA 


LORD 


2397 


5602 


3044 




OCA 


EXP 


2398 


5603 


3045 




DCA 


HORD 


2399 


5604 


3047 




DCA 


0VER2 


2400 


5605 


3314 




"OCA 


ONUMBR 


2401 


5606 


3050 


■ 


DCA 


SICNF 


2402 


5607 


1066 




TAD 


CHAR 


2403 


5610 


1264 




tAO 


MPLUS 


2404 


5611 


7450 




SNA 




2405 


5612 


5220 




JMP 


.*6 


24(^6 


5613 


illl 




TAD 


m2 


2407 


5614 


7640 




SZA 


CLA 


24C8 


5615 


5221 




JMP 


.*4 


2409 


5616 


7040 




CMA 




2410 


5617 


3050 




OCA 


SICNF 


2411 


5620 


4666 




JMS 


I XINPUT 


2412 


5621 


1366 




TAO 


CHAR 


2413 


5622 


1265 




TAO 


MSPACE 


24l4 


5623 


7650 




SNA 


CLA 


24l5 


5624 


5220 




JMP 


• '4 


24i6 


5625 


4227 




JMS 


DECON 


2417 


5626 


5600 




JMP 


I OECONV 


24l8 


5627 


::-^SB 


DCCONi 








23106 PAC£ 



§' 



/ARE ALL SIC. FICS. USED? 

/NO 

/YES. 

/RESET COUNT TO «1 

/AND LEAVE C(AC) » 

/TAKE NEXT OlCiT FROM BUFFER 



/IF OUTPUT TOO LARGE. 
/PRINT "0" 

/PRINT "." 

/SECOND RETURN 

/TAKE NEXT OlCiT FROM BUFFER 

/PRINT IT 

/TEST FOR END OF INPUT 

/AND REPEAT 

/OUTPUT EXTRA 2ER0S, 



IMAL-BIMARY 

For ♦ OR • XXX. I, 



/iERO THE EXPONENT AND 
/INlTIALIiE FLOATING AC. 



/ALLOW KEYBOARD SIGN CHECKS, 



/*8I0NI GET NEXT 
/CHECK > SIGN 



/INIT SIGN CHECK TO POS, 

/GET NEXT 

/A SPACE PERHAPS? 



/rocui2.:<7 



l-ULlC V7?3 li:jANr71 23106 PACE 1-44 



2419 563? 1.366 tA:.i 

2420 5631 1262 TAD MINE 

2421 • ^632 7653 S.'U CLA 

2422 5633 =627 J*^" 1 DECON /E 

2423 5634 4561 TESTN 

2424 5635 5627 JMP I O^CON /. 

2425 5636 5247 JMP DTST /pT^ER 



CHAR /TEST LEaO CvARACTER TiO'R TERMIMATOR 



2426 5637 li^54 TAD SORTCN /N 

\% WW 526? ''*'" 2sM T3 ;;rMAlN MUST fe SIVCE OVERSOW IS CHECKED 

242^ 5642 23l5 ISE 0NUM8R /COUMT OICHS 

^4^; \\?, WW erSoSz* /,NPuT,ovERruOw error 

24-^2 5A45 4666 JMS I XINPUT 

433 5^6 523? JMP OECON*l ^JOnT NUE 

2434 5647 1066 DTST. TAOCHAR /ALLOW A-i 

2435 5650 1112 TAD MINUSA 

2436 5651 7710 SPA CLA 

2437 5652 5627 JMP I OECON 

2438 5653 l366 TAO CHAR 

2439 5654 l263 TAD MINUSE 

2440 5655 7740 SZA SMA CLA 

2441 5656 5627 JMP I DECON /USE SIX BITS OF ASCII 

2442 5657 1366 TAD CHAR 

2443 5660 i 122 AND P77 
94id4 %t.h\^ "240 JMP DSAvE 
2^45 5^62 ^473 MINE. -335 /(7532); TOR AMPERSAND 

2446 5663 7446 MiNUSi, -332 

2447 5664 7525 MPLUSi. "253 

2448 5665 7540 MSPACE. -240 

WW ^^5-^00 MKir^' /ROUTINE TO MULTIPLY FLAC BY TEN (10) 

2451 5670 1047 TAD 0VER2 

^453 56I2 l'46 t6 R /DOUUC PRECISION WORD 

IJI5 56?3 3^22 OCA ACIL /BY TEN (DECIMAL) 

2455 56^4 1045 TAD HORO /REMAIN.REMAINDER 

2456 5675 3041 OCA ACIh _ . ..„ 

2457 56f6 3312 DCa REMAIN /CLEAR OyERrLOw WORD 

2458 \% 4315 JMS MULT2 /CALL SUBROUTINE TO 

2459 5IJ0 4315 JMS MULT2 /MULTIPLY BY TWO 

2460 5701 4333 JMS DU8LAD /CALL DOUBLE ADD 

WW '453 f3i3 TAdSi? /ADO LAST DIGIT received . .^ 

2463 57714 3'^43 OCA OVERl 

2464 S??? 3('M2 OCA AClL 

2465 57616 3!^41 OCA ACIH 

2466 57?7 4333 JMS DUBLAD . - 

2467 5^ie 1312 TAO REMAIN /E^IT WITH REMAINDER 
24?8 Vl\\ 5667 JMP I MULT10 /IN AC 
24*9 «!712 viO"! REMAIN, 7 

2470 " 5713 ■ 01%', DIGIT* P /STORAGE fOR DIGIT 

2471 ^714 C^Pr' nNUM3R, /"NUMBER OF OICITS „w o ' 
23?2 Vh5 ^W^ MULT2, ^ /MULTIPLY 0VER2. LOPO, WORD BY 2 
2473 -5716 V347 TAO 0VER2 

mtaummaL 



/F0CL12.3 

2474 
2475 
2476 
2477 
2478 
2479 
2482 
2481 
24S2 
2493 
2464 
2485 
2466 
2487 
2468 
•2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 

25ei 

25PI2 
2503 
25?4 
2505 
2506 
25n7 
2508 
2509 
2510 
2511 
25l2 
25l3 
2514 
25l5 
25l6 
25l7 
25l8 
25l9 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 



1 



17 
572? 
57?1 
5722 
5723 
5724 

5725 
5726 
5727 
5730 
5731 
5732 
5733 
5734 
5735 
5736 
5737 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5750 
5751 
5752 
5?53 
5754 
5755 
5756 
5757 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5770 
5771 
5772 
5773 
5774 



60i!!0 
6001 



6003 
A004 



ClALl£' V^H3 



71vM 
3047 
1046 
73?4 
3'?46 
1045 
70(54 
3i)45 
|312 
7004 
3312 
5715 
i'00?! 
73f!0 
l!!'47 
1043 
3047 
7?04 
1046 
lf42 
3046 
7004 
1045 
1041 
3045 
7004 
1312 
3312 
5733 
.,'200 
7330 
1041 
7510 
7120 
7010 
3041 
1042 
7010 
3042 
1043 
7010 
3!143 
?040 
5754 
5754 
4566 
6f500 



.'000 
7610 



6K(12 6377 



.1045 
7700 



11-JAN«71 23106 page: ^^ 

CLL RAL /CA«RY JNSERT BIT IS W^INK 
DCa 0VER2 
TAt) LORO 
RAL 

DCa lord 
tAD HORD 
RAL 

DCA HORO 
^ TAD REMAIN! 
RAL 

OCA REHAIN 
JMO 1 MULT2 
OUBLaO; /TRIPLE PRECISION ADDITION 
CLA CLL 
TAD 0VER2 
TAD OVERl 
OCA 0VER2 
RAL 

TAD LORO 
TAD AClL 
OCA LORD 
RAL 

TAD HORD 
TAD ACIH 
DCA HORO 
RAL 

TAD REMAIN /WITH OVERFLOW 

DCA REMAIN 
JMP I. DUBLAO 

/SHIFT oPERAMD RiCHT 
CLA CLL /TRIPLE PRECISION 
TAD AClH 
SPA 

CLL CML 
R AR 

DCA AClH 
TAD AClL 
RAR 

DCA AClL 
TAD OVERl 
RAR 

OCA OVERl 
158 EXl 
JMP I OIVl 
JMP I OIVl 
ERR0R4 /••••••••{SUBSCRIPT ERROR FOR FILE VARJABLE-OR NOT DEFINED) 

JNG OUTPUT CONVERSION »OUTiNC 

. 

SKP CLA /••••••••/CSETS rid OF I IN PRINTOUT 

6377 /•••••••# 



OIVl. 



fsserr; 

• 600P 
/FLOAT] 

floutP, 



LMODC 
OPTR, 
PMOOE 



TAD HORO 
SMA CLA 



/NUmRER>0?? 




V 



2529 

2533 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

257Z> 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

253l 

2582 

2583 



niALl" V.:^:3 11-J*' -71 



m^^ 



6006 
6007 
A?10 
6?11 
6? 12 

6.n3 

, 6P14 
6?l5 
6?l6 
6017 
6K20 
6C21 
6022 
6323 
6024 
6i?25 
6(?26 
6Z27 
6(530 
6(?31 
6032 
60-33 
6334 
6035 
6P36 
6037 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6050 
6051 
6052 
6C^53 
6054 
6055 
6056 
6(^57 
6360 
6K61 
6062 
6P63 
6064 
6f".65 
6066 
6067 

6c;71 

6072 
6073 



1334 

l356 

4551 

4753 

3^33 

■1?I4 4 

7513 

5227 

7443 

l341 

7750 

5234 

4407 

4744 

.1000 

7001 
1033 
5211 
4407 
4752 

000 



7040 

5225 

3745 

3746 

l350 

3014 

1044 

7140 

3354 

1343 

3044 

4527 

2354 

5245 

l746 

7450 

5270 

1342 

7710 

5264 

7001 

3414 

^044 

1342 

2033 

7000 

1746 

?'133 

70C0 

7410 

4747 

3414 

?044 

5270 



TA" SMSP 

T.'.C SHIN 

JMS I A8S0L2 
FC;Ci2. DCi T3 
TAD EXP 
SP* 

JMP FC03 
SH* 

TAD m4 
SPA SNA CL* 

jMP roo4 

TINT 

FMUL I PPTEN 
TEXT 
lAC 

TAD T3 
JMP FG02 
rG03. PI^T 

FMUL I TENPT 
FEXT 
CI* 

JMP i«6 
F004, OCA I DPT 
DC'a I REPT 
TAD SADR 
OCA FLTXR 
TAb EXP 
CMA CIL 
OCA OUTDG 
TAD OCOUNT 
OCA EXP 
jMS 1 DOUBLE 
IS2 OUTDG 
JMP ,«2 
TAD I REPT 
SNA 

JMP FC09 
TAD FM12 
SPA CLA 
JMP ,»7 

lAC 

dca I fltxr 

IS2 EXP 

TAD FM12 
IS2 T3 
^JOP 

TAD 1 REPT 
1S2 T3 
NOP 
SKP 
FC05, JMS I MlflPT 
OCA I fLTXR 
iSi EXP 
JMP ,"3 



23106 PAGE i«^ 
/pRivT "»" OR A SPACEi 



/IMTIALIHE DECIMAL EXPC^.ENT 
/IS EXP TO 47 

/TOO LARGCIHULTIPLY BT l/l?- 



/multiply by two to position bit0 
/clear overflow word 
/init buffer pointer 

/compute bits in 1st digit 

/temp count 

/setup count of total output 

/rotate out the 1st 4 bits ■ 

/TEST FOR 10-15, 0»l-9 
/IGNORE 1ST ZERO 



/0«9 

/OUTPUT A 1 
/COUNT ThE DIGIT 
/CORRECT REMAINDER 
/BUmP decimal EXPONENT 

/COMPUTE RESULTANT OR SECOND DIGIT 



/IE, ,672X10»6*,72,, ETC 

/ALL DIGITS OUTPUT?? 
/NOl CONTINUE 



rOCLl2 

2584 


^^7 4 


DIAL10 
135^ 


V3K!3 


ll-JAN-71' 
TAD SAOR 


23136 PACE igM 
/INIT BUrFER f^WTER 


2585 


6?75 


3V114 




OCA TLTXR 




2586 


6?76 


1343 




TAD DCOUNT 




25S7 


6377 


4751 




JMS I ROUND • 


/OUTPUT MANTISSA 


2558 


AlPS 


56,ie 




JMP I FLOUTP 


/riXEO POINT DONE 


2589 


6131 


1333 




TAD CHRT 


/pRjMT »E" 


2590 


6102 


4551 




PRINTC 




2591 






/OUTPUT 


THE EXPONENT 




2592 


6103 


1333 


•» 


TAD T3 


/TAKE ABSOLUTE VALUE Of EXPO 


2593 


6104 


75ie 




SPA 




2594 


6105 


7041 




CIA 




2595 


6106 


3^45 




OCA HORD 


/SAVE * POWER 


2596 


6137 


1033 




TAD T3 


/PRINT SIGN 


2597 


' 6110 


77C0 




SMA CLA 




2598 


6111 


nil 




tAO M2 




2599 


6ii2 


l336 




TAO SMIN 




2600 


6113 


4551 




PRiNTC 




2601 


6114 


1045 




tAD HORD 




2602 


6115 


2044 




ISZ EXP 




2603 


6li6 


1337 




TAO Ml«4 




2604 


6117 


7500 




SMA 




2605 


6120 


5315 




JMP ,-3 




2606 


6121 


1340 




TAO C104 




2607 


6122 


3045 




OCA HORD 


/SAVE TENS AND UNITS 


26(36 


6123 


734(5 




CMA 


/OUTPUT HUNDREDS 


2609 


6124 


1044 




TAD Z)(P 




2610 


6125 


7440 




SZA 


/UNLESS 2ER0 


2611 


6126 


4354 




JMS OUTDG 




26l2 


6127 


1045 




TAO HORO 


/PRiwT two DIGITS 


2613 


6130 


4732 




JMS I PRNTI 




2614 


6131 


5630 




JMP 1 TlOUTP 




2615 


6132 


?442 


PRNTi# 


PRkjT 




2616 


6133 


t305 


CHRT. 


309 /E (0246) • FOR AHPeRSAnO 


26l7 


6134 


7763 


SMSPi 


240.255 / 




2618 


6135 


3275 


PtQ, 


275 




2619 


6136 


e255 


SMIN. 


255 




2620 


6137 


7634 


M144, 


-144 /.leei 




2621 


6140 


•?144 


C144, 


0144 /♦100 




2622 


6141 


7774 


H4i 


-4 




2623 


6142 


7766 


rHi2, 


-12 




2624 


6i43 


7771 


dcount; 


-OiCITS.l 


/NUMBER or DIGITS OUTPUT 


2625 


6144 


6275 


PPTFNi 


PTPN /lEl 




2626 


6145 


5713 


OPT, 


OICIT 




2627 


6146 


5712 


KEPT, 


REMAIN /OVERriOW fROH INTEGER MULTIPLY 


2628 


6147 


5667 


MlOPTi 


MULT10 




2629 


6150 


7467 


SAOR. 


BUPrER-l 




2630 


6151 


54a!3 


ROUMO« 


tCo /ACTUAL 


OUTPUT ROUTINE 


2631 


6152 


6271 


TENPTi 


TEN 




2632 


6153 


5571 


ABS0L2; 


ABSOLV 




2633 


615.4 


•300 


OUTOCi 


/OUTPUT 


ONE DIGIT 


2634 


6155 


1113 




TAO 0260 




2635 


6156 


4551 




PRINTC 




2636 


6157 


5754 




JMP I OUTDG 




2637 


6160 
6161 


7750 
2333 


RANHUl. 


7750I2333J5733 


/••••*••• 



l^fe 



/rOCi.l?.:>tf^ Ij! .Llf . '3 llijAN-71 23106 PAGE 1-^ 

6162 5733 

2633 fti63 1167 l5.'UT» TAu SUBS2 /••••»••• CAuLS STORING ROUTINE TOR 

263' 6164 3171 DCa SUSS /#••«•»»# s rN{X>« 

2643 6165 1170 TAD • LESUB2 /•••»»•»# 
St-il 6166 3173 DCA lESU9S /«•»#•••• 
26<2 6167 |032 TAD L,WEi;iP /••s6»»«» 
26'»3 617(? 6212 62l2 /••»<»#»»# 

2644 6171 4775 JMS I STOfilT /«•»»•*•• 
264? 6172 2407 IS2 I 7 /• • 

2646 6173 5774 JMP I ,♦! /••«••••• 

2647 6174 6401 FPnT*1 /«••«••«« 

2648 6175 2300 STORlTi ITSTQR /« •• 

2649 6176 6213 LS. 62l3 /CIF CDr 10/i»»»»««» LIBRARY SAVE 

2650 6177 5134 jMP XLS /••#•»*#• 

2651 /USED BY 8k 

2652 /rLOATisJG POINT INPUT 

2653 6200 #6260 

2654 6200 ;'0Pi(?! FLlNTPi /IF C(AC) ! !?i USE CHAR 

2655 6201 7640 S2A CLA /IF C(AC) N0\'»2ER0 , GET NEXT 

2656 62P2 47^6 jMS I XJN /GET FIRST ChAR 

2657 6203 1066 T'AD CHAR /IGNORE LEADING SPACES 

2658 A2PI4 1114 TAD M24e 

2659 (,2t^5 7650 SNA CLA 

2660 6206 5202 JMP ,«4 

2661 6227 4702 jMS I DPCVPT /REaO FIRST DIGIT GROUP 

2662 6210 1366 TAO CHAP /ANQ SET "SIGNF" 

2663 6211 1115 TAD MPCR 

2664 6212 7640 SHa CLA /ENDED BY PERIOD? 

2665 6213 5221 JMP FICOl 

2666 6214 4706 JMS I XlN /YES. READ 2AND CROUP 

2667 6215 3705 OCA I DPN 

2668 6216 47^3 jMS I OCONP 

2669 6217 1705 TAri I DPN /SAVE NUMBER OF DIGITS IN T3 
2673 6220 7041 CMA lAC 

2671 6221 3033 FiGoli DCA T3 /NO, 

2672 6222 i3l0 TAii P43 

2673 6223 3044 DCA EXP 

2674 6224 4704 jMS I RES0L5 

2675 6225 4707 JMS f INORM /NORMALIiE FJRST, THEN 

2676 6226 4407 FINT 

2677 6227 6433 FPuT I PTl /SAVE NUMBER 

2678 6230 •'aCC FExT 

2679 6231 1366 tAO CHAR 
2630 6232 i301 tAD MINUSE 

26S1 6233 7640 SHa CLA /"E" READ IN? 

2682 6234 5246 JMP EN0FI*3 /NO 

2653 6?35 4736 JMS 1 XiN /YES. READ 3RD DIGIT CROUP 

2654 6?36 47?2 JMS I DPCVPT /I.E. CONVERT DECIMAL EXPONENT 
2685 6237 47vM JMS I RCS0L5 

2636 6240 ii347 TAO 0VER2 

26S7 6241 i?33 TAO T3 /C(SEXP)PLACES TO RIGHT 

2698 6242 3kj33 DCA T3 /qF LAST OlGiT 

2659 /COMPENSATE FOR DECIMAL EXPONENTS 

2690 6243 4407 ENDFl. FiNT ■ /RESTORE MANTISSA 

2691 6244 ,430 FGET I PTl 



/F0CLi2.3Z- 



DJAL13 V?03 



.ll.»JAN»71 



23106 pace: »&£9 



2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
27P1 
27B2 
27P3 
2704 
27C5 
2706 
2707 
2703 
2709 
2710 
2711 
2712 
27l3 
27l4 
2715 
2716 
2717 
27l8 
27l9 
272^ 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 

2738 
2739 

2740 
2741 
2742 
2743 
2744 
2745 
2746 



r4 5 

6246 

6247 

6252 
f?51 
6252 
6253 
6254 
6255 
6?56 
6257 
6262 
6261 
6262 
6263 
6264 
6265 
6266 
6267 
6273 
6271 
6272 
6273 
6274 
6275 
6276 
6277 
6330 
63EI1 
63(12 
6303 
63?4 
6335 
6306 
6307 
6310 



6311 



C<53 

i?33 
7450 
560? 
77?«p 
5261 
4437 
4275 
643? 
.'303 
7301 
5266 
4437 
4271 
6430 

u3a0 

7340 
1033 
3033 
5246 
i. ZdA 
2400 
C000 
;:'000 
7775 
3146 
3147 
3150 
7473 
5600 
5627 
7173 
5714 
L.756 
7335 

1)043 



6311 
1^66 



6312 3?56 

6313 4545 

6314 4550 

6315 l77l 

6316 7410 

6317 5313 
6320 4562 



/TEST DECIMAL EXPONENT 

/FINISHED 



/, IS TO THE LEFTI 
/TiMPS ,1000 



/, is TO THE «IGHTl 
/MULTIPLY BY IB 



FEXT 

TAD T3 

SNA 

JMP I FLINTP 

SM4 CLA 

JMP riG04 

FINT 

FMUL PTEN 
V FPUT I PTl 

FEXT 

UC 

JMP ,*6 
FIC04» FINT 

FMUL TEN 

FPuT 1 PTl 

FEXT 

CMA 

TAD T3 

OCA T3 

JMP ENDFI*3 
TEN, 0004 

2400 

0000 

0000 
PTEn, 7775 

3146 

3147 

3150 
HiNUSEi -305 
DPCVPT, DECONV 
DCONP* decon 
resols; resolv 

DPN, ONUMBR 

XIN, INPUT 

INIORM* DNORM 

P43. 43 

/END Or FLOATING POINT INPUT 

/? FREC 

/USCO »y H.S, fiCAOER 



/ 

/CALLS LOAbiNC ROUTINE FOR FILE 

/VARIABLES IN EXPRESSIOnSi CALLED BY CFUnSI 

/ 

•6311 /•••••••• 

FNUMi tAD CHAR /•••••••» 

OCA EFOP /•••*•••• 

GETC /•••••••• 

SORTC /••••*#•• 

TEPHS-l ■ /••#•*•#» 

SKP /•••••••# 

JMP ,-4 /•••«•*•• 

TStlPR /*•#♦••## 



/(3146) ■ For 4. word 
/(7532) ■ For ampersand 



A 



W 



'^--./ 



/rOCLl2V3 


7 r^IAliS 


2747 


«321 "565 


2748 


6322 4734 


2749 


63?3 4453 


2752 


6324 • 3171 


2751 


6325 1C45 


2752 


6326 3173 


2753 


6327 .1413 


2754 


6330 6212 


2755 


6331 4733 


2756 


6332 5536 


2757 


6333 l533 


2758 


6S34 1631 


2759 


6335 ^'020 


2760 


6336 4545 


2761 


6337 lfl66 


2762 


6340 4542 


2763 


6341 4545 


2764 


6342 4550 


2765 


6343 1374 


2766 


6344 5735 


2767 


6345 5341 


2768 


6346 4335 


2769 


6347 1066 


2770 


6350 1374 


2771 


6351 7640 


2772 


6352 5357 


2773 


6353 1413 


2774 


6354 4547 


2775 


6355 6365 


2776 


6356 7772 


2777 


6357 456.6 


2778 


6360 5167 


2779 


6361 5171 


27S0 


6362 2572 


2781 


6363 5173 


2782 


6364 6176 


2763 


6365 6375 


2784 


6366 «317 


27B5 


6367 f«303 


2786 


6370 0315 


2787 


6371 V314 


2788 


6372 o323 


2789 


6373 .'307 


2790 


6374 7524 


2791 


6375 6213 


2792 


6376 5136 


2793 


640(^ 


2794 




2795 


64P0 ;'!??0 


2796 


6401 73v70 


2797 


64C2 3047 


2798 


64£'3 3043 


2799 


6404 l60i5 


2800 


6405 7451? 


2801 


5406 56PB 



v;.C3 11-J''>71 23106 PAGE 1»50 

rp-'2q4 /••#o(»»»» 

jis'l PECALL / *• 

JMS I INTEGER / 

DCA SUBS /•••••••• 

TAD WORD /• 

OCA LESuSS /•••<•»•''• 

J212 /••• ^^"-^ ^°' 

JMS I LOAOIT /•••*»••» 

■ JMP I EFUN3I /•••••••• 

PASS. «* 

GEtC 

TAD CHAR 

PUSHA 

GEtC 

SORTC 

GLiST«l 

JMP I PASS 

JMP i»4 
LTAPCi JMS PASS 

tAb CHAR /•»•••••• 

TAO MlNCOM /»♦•••••• 

SiA CLA /•• 

JMP LERR /•«»••••• 

soStj /U::".": jmpS on subcommand or LIBR xxxx 

LL!ST-i ''/!•!!!!! 

LGO-ULIST /»♦••#••» 

LERR. ERR0R4 /!|,n**« 

Ls '^ ! !!!! 

LUlSTi 317 ,!!!!.!! 

303 <•*•••*•• 

315 /•••••••• 

314 '/!•*!!!! 

323 /•••••••• 

mincom; "254 ^!!!*!».!! 

L5' 6213 y!! !!!!! 

JMP XLO /••• 

'^^^'^ / FLOATING-POJNT INTERPRETER FOR POCAU, 

rPNT. L" , 

Dct 0VER2 /{NOP) - roR 4.WORO 

ScA OVER! /NOP) - rOR 4nW0RD. 

?Sd ! "Jt /GET NEXT INSTRUCTION 

JMP I FPNT /P*ST EXIT 



/FOCL12.5 


9 


• DiAulS 


V?03 


li-.JAN.71 


23106 PAGE ^|L 


2802 


ft4;«7 


3264 




dca 


JUMP 


^^ 


28a3 


6413 


l264 




tAO 


JUMP 




28J4 


6411 


123 




ano 


C2ilZ 


/GET PAGE SIT 


28r5 


6412 


765;'! 




SNA 


CLA 


/PAGE iEROT 


23Z6 


6413 


5216 




JMP 


.♦3 


/YES 


2837 


6414 


11^4 




TAD 


P7630 


/MO 


2808 


6415 


■200 




AND 


FPNT 


/C<FPNT>0.4 CONTAINS PACE BITS 


2309 


6416 


304r 




DCA 


ADOR 




2810 


6417 


1106 


\ 


TAO 


P177 


/GET 7 BIT ADDRESS 


2911 


6420 


'264 




AND 


JUMP 




2812 


6421 


1040 




TAO 


ADDR 




2813 


6422 


3040 




DCA 


AODR 




2814 , 


6423 


1265 




TAD 


INORCT 


/INDIRECT BIT?1? 


2815 ". 


6424 


'264 




AND 


JUMP 




2816 


6425 


7650 




SNA 


CLA 




28l7 


6426 


5233 




JMP 


LOOP01 


/NO^GO ON 


2313 


6427 


1440 




tAO 


1 ADOR 


/YES iDEFE« .W/0 AUTO-INDEX 


28l9 


6430 


74553 




SNA 




/••••••*• ir PTl WAS ZCROi IT 


2823 


6431 


5572 




JMP 


I LEFPUT 


/••••••*« riLE VARIABLE 


282i 


6432 


3040 




DCA 


ADDR 




2822 


6433 


2200 


LOOP01I 


ISZ 


FPNT 




2823 


6434 


704(? 




CMA 






2824 


6435 


1040 




TAO 


ADDR 




2829 


6436 


3015 




DCA 


FLTXR2 




2826 


6437 


1264 




TAO 


JUMP 


/(JET COMMAND 


2827 


6440 


7106 




CLL 


PTL 




2828 


6441 


7006 




RTL 






2829 


6442 


n07 




ANO 


P17 


/GET BITS 0*2iIE OPCOOC 


2830 


6443 


7450 




SNA 






2831 


6444 


5271 




JMP 


FL6T 




2832 


6445 


l266 




TAO 


TABLE 


/LOOKUP IN TABLE 


2833 


6446 


3264 




OCA 


JUMP 




2334 


6447 


1.664 




TAO 


I JUMP 




2835 


6450 


7450 




SNA 






2836 


6451 


5267 




JMP 


FLPT 




2337 


6452 


3264 




OCA 


JUMP 




2838 


6453 


1306 




tAO 


CEXl 


/SAVE FLOATING ARSUEMCNTiUNLES 


2839 


6454 


3014 




OCA 


FLTXR 




2840 


6455 


1117 




TAO 


MFLT 




2841 


6456 


3057 




OCA 


CNTR 




2342 


6457 


1415 




TAD 


I FLTXR2 




2843 


6460 


3414 




DCA 


1 FLTXR 




2844 


6461 


2057 




IS2 


CNTR 




2345 


6462 


5257 




JMP 


.-s 




2846 


6463 


5664 




JMP 


1 JUMP 


/CO THERE 


2847 


6464 


i^000 


JUMP, 









2848 




i.i04P 


ADORbCxI 






2849 


6465 


,•430 


INOncT; 


0400 




2850 


6466 


6575 


TA8LE* 


ITaBLE 




2851 


6467 


1305 


FLPT. 


TAO 


CEXP 


/EXP TO (ADDR) 


2952 


6473 


5275 




JMP 


.♦5 




2853 


6471 


1305 


TLCT. 


tAD 


CEXP 


./{AOORJ TO EXP 


2854 


6472 


3015 




DCA 


FLTXR2 




2899 


6473 


7040 




CMA 






2856 


6474 


1040 




tAD 


ADDR 





/P0CL12.37 



oULiP vp'es 



11-JAN»71 



23126 PAGE 1-5? 



2657 

2856 

2859 

2860 ■ 

2861 

2862 

2663 

286^ 

2865 

2866 

2667 

2868 

2669 

2870 

2871 

2672 

2873 

2874 
2875 
2876 
2877 
2878 
2879 
2880 
2681 
2882 
2883 
2884 

288$ 
2866 
2867 
2S68 
2889 
2690 
2891 
2892 
2893 
2894 
2895 
2896 
2697 
2898 
2899 
■2920 
2901 
2902 
29C3 
2904 
29^5 
29n6 
2907 
29G8 
29?9 
2910 
2911 



6475 

6476 
6477 

6500 
65f)l 
65e2 
6503 
6504 
6505 
6506 
6507 
6510 
6511 
6512 
6513 
6514 
6515 
65i6 

6517 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6530 
6931 
6532 
6533 
6534 
6535 
6536 
6537 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6560 
6561 
6562 



3(!!14 

lll7 
3057 
1414 
3415 
2057 
5300 
5201 
'1043 
t 037 
4767 
4772 
5231 
4774 
4773 
4775 
4771 
5201 

15145 
72e0 
5327 
3344 
3045 
3046 
3047 
5231 
4543 
(;044 
4543 
l'04 
4544 
.)044 
4453 
t5l0 
5344 
7040 
3264 
3343 
1345 
7642 

4566 
4543 
2405 
4544 
J044 
4544 
747a 
5362 
4543 
7470 
4544 
'040 
4770 
?264 



on' FLTXR 

■AO MFLT 
UCA CNTR 



/save: 'FROM' ADDRESS 
/3 0'' 4 WORD? 



TAD 
DCA 



I FLTXR 
I rLTXR2 



IS2 CNTfl 
JMP ,»3 

JMP FPNT*1 
EXP-1 
EXl-1 

JMS I OPMINS 
JMS I ALGN 
JMP FPNT*1 
JMS I RAR2 
JMS I RARl 
JMS I TRAD 
JMS I NORM 
JMP FPNT*1 
/INTERPRETIVE POWER 



CEXP. 

CEXl, 
FLSU. 
FLAD. 



NORF. 



FLEX, 



ZERO. 



TAO HORD 
CLA 
JMP ,•6 

DCA EXP 
DCA HORO 
DCA LORD 
DCA 0VER2 
JMP FPNT^l 
PUSHF 



PUSHF 



POPF 



I 



.♦5 



JMS 

SPA 

JMP 

CMA 

DCA JUMP 

DCA OVERl 

TAD HORO 

S2A CLA 

ERB0R2 

PUSHF 



FL*C 
EXl 

FLAG 

INTE6ER 



POPF 
POPF 

JMP ,♦6 

PUSHF 



POPF 



FLTONE 

FLAC 

ITERl 

ITERI 



/FSUP'2 . NEGATE THE OPERAND 
/FLAD«1 ; FIRST ALIGN EXPONENTS 
/RETURN IF NO ALIGNMENT IS POSSIBLE 
/TRIPLE PRECISION AODDITION 
/SINCE BITS ARE SHIFTED 
/R I C^T 

/NORMALIZE TmE RESULT 
/HiNTIUSE 700X FOR FUNCTIONS. 

/2ER0? 
/CROCKt*** 

/YES 

/AC TO A * POWER 

/SETUP ARGUMENT { ThE fXPONENT) 

/ONlV POSITIVEi integer EXPONENTS 

/jcoulo divide) 
/temp storage 

/(NOP) • FOR 4-WORD 



/TOO LARGE OR NEGATIVE EXPONENT 
/INITIALIZE TO one; 



JMS 1 
IS? JUMP 



EXl 
MULT 



/"MulT" 



■•>' 



..-^..^.ixj^-t;^;.,,^....,.. 



/P0Cl12. 


V 


3Ui.l0 


vae*3 


ll^JAN«7l 


23106 PAGE |HB 


29l2 


6563 


5355 




JMP 


.»6 


W^ 


2913 


6564 


52?1 




JMP 


FPNT*1 




29l4 


6565 


4772 


FLMV. 


JMS 


I MULT 


/MULTIPLY 


2915 


6566 


52,-^1 




JMP 


FPNT*1 




29l6 


6567 


7153 


opmins; 


MINUS2 




29i7 


6570 


7SJ04 


MULT. 


DMuLT 




29l8 


6571 


7335 


nqrmi 


DNORM 




29i9 


6572 


6623 


ALCN, ^ 


ALIGN 




2920 


6573 


5754 


RARl. 


DIV3 






2921 


6574 


6757 


RAR2, 


DlV! 






2922 


6575 


5733 


TRAD, 


0U9LA0 




2923 




6575 


1 TABLE. 


.-1 






2924 


6576 


6513 




FLAC 






2925 


6577 


6507 




FLSl 






2926 


6600 


7107 




FLDV 






2927 


6601 


6565 




FLMV 






2928 


6602 


6517 




FLO 






2929 


6603 


,'000 




0008 






2930 


6604 


6515 




NORF 






2931 


66(^5 


r000 


acmins; 





/ROUTINE TO COMPLEMENT FLAC • VIA "MlNSKl* 


2932 


6606 


7200 




CLA 




/••••••••( tS THIS CLA NECESSARY) 


2933 


6607 


1047 




TAD 


0VER2 


/••••*••• RCCODlNG FOR SPACE 


2934 


6610 


tl61 




CLL 


CML CIA 


/••*•••«• 


2935 


6611 


3047 




DCA 


0VER2 


/••••*•«• 


2936 


6612 


7004 




ral 






2937 


6613 


1046 




tAD 


LORD 


/•••••••« 


2936 


6614 


7061 




CMi. 


CIA 


/*#•••••• 


2939 


6615 


3046 




OCA 


LORD 


/•*••#••• 


2940 


66i6 


■7004 




RAL 




/•••••••• 


2941 


6617 


1045 




tAO 


HORO 




2942 


6620 


7061 




CML 


CIA 


/• •• 


2943 


6621 


3045 




OCA 


HORO 


/•••**••• 


2944 


6622 


5605 




JMP 


I ACHINS 




2945 


6623 


■?000 


ALICNi 





/SUBROUTINE TO ALIGN 


2946 


6624 


1045 




TAO 


HORO 


/BINARY POINTS 


2947 


6625 


7450 




SNA 






2946 


6626 


1046 




TAO 


LORD 


/IS MANTISSA 2ER0T 


2949 


6627 


7650 




SNA 


CLA 




2950 


6630 


5311 




JMP 


NOXl 


/YESi RESULTiOPERANO 


2931 


6631 


1041 




tAO 


ACIH 


/NO. IS OPERAND ZERO? 


2952 


6632 


7450 




SNA 






2953 


6633 


1042 




TAD 


AClL 




2954 


6634 


7450 




SNA 






2955 


6635 


1043 




TAD 


OVERl 




2956 


6636 


7650 




SNA 


CLA 




2957 


6637 


5623 




JMP 


I ALIGN 


/YES, EXIT',' 


2958 


6640 


1040 




TAO 


EXl 




2959 


6641 


7041 




CMA 


lAC 




2960 - 


6642 


1044 




TAD 


EXP 




2961 


664 3 


7450 




SNA 




/ARE EXPONENTS EQUAL? 


2962 


6644 


5273 




JMP 


AOONE 


/YES 


2963 


6645 


32'!!5 




OCA 


ACHINS 




2964 


6646 


1205 




TAO 


ACHINS 




2965 


6647 


7500 




SMA 




/NO 


2966 


665(^ 


?041 




CIA 




/NCCATE AND 



9 



TOSLlS..^? 



TlALli' V^OS 



llijAM.'?! 



23126 PACE 1«S4 



2967 

2963 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 

29e0 

2981 
2982 

29e3 
2984 
29B9 
2986 
2987 
2988 
2969 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
30i4 
3015 
3016 
30i7 
3018 
30i9 
3020 
3021 



6651 

6652 

6653 
6654 
6655 
6656 
6657 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6667 
6670 
6571 
6672 
6673 
6674 
6675 
6676 
6677 
6700 
6701 
6702 
6f03 
6704 
6705 
«t06 
6707 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6720 
6721 
6722 
6723 



6724 
6725 
6726 
6727 
6730 
6731 
6732 
6733 
6734 
6735 



3322 

"322 
1336 
7710 
5275 
.1235 
7700 
5265 
<J357 
^322 
5261 
5273 
7040 
1043 
3040 
"1723 
2322 
5270 
2223 
5623 
1040 
7700 
53i34 
1044 
7700 
5623 
5306 
1044 
>703 
1205 
7743 
5623 
1040 
3044 
1041 
3345 
1042 
3046 
1043 
3047 
5623 
■'000 
5754 



•'.1P0 
4751 
1044 
775e 
5353 
7.»C1 
3043 
l35? 
3040 
4223 



OCA AMOUNT 



ASHFTi 



ADONCi 
NOX, 



N0J<2( 



NOXl, 



amount; 

TAGl, 

/LEAVE 

/LEAVE 

FIX. 



TAD 

TAO 

SPA 

JMP 

TAO 

SMA 

JMP 

JMS 

IS2 

JMP 

JMP 

CMA 

TAd 

DCA 

JMS 

IS? 

JMP 

ISZ 

JMP 

TAO 

SMA 

JMP 

TAO 

SMA 

JMP 

JMP 

TAD 

SMA 

TAO 

SMA 

JMP 

TAD 

OCA 

TAD 

DCA 

TAD 

OCA 

TAD 

OCA 

JMP 



DIVl 

12 ei 

rLAC 



JM§ 
TAD 
SPA 
JMP 
lAC 
DCA 
TAO 
OCA 
JMS 



•/SAVE THE OirPE»ENCE 



/CAN TME EXPONENTS BE ALIGNED? 
/NO, USE' LARGER OV THE TWO, 
/YES, SHIFT THE SMALLER 



AMOUNT 

TEST2 

CLA 

NOX 

ACMINS 

CLA 

ASHFT 

DIV2 

AMOUNT 

.-2 

AOONE 

EXi 

EXl 

I TAGl 

AMOUNT 

.-2 

ALIGN 

1 ALIGN 

EXl 

CLA 

N0X2 

EXP 

CLA 

I ALIGN 

.♦3 

EXP 

CLA 

ACMINS 

Sik CLA 

I ALIGN 

EXl 

EXP 

ACIH 

HORO 

ACIL 

LORD 

OVERl 

0VER2 

I ALIGN 



T ANSWER IN AC UPON RETURN 
AS AN INTEGER. 

/VIA (INTEGER) 



/MISSION IMPOSSIBLE! 
/CHECK FOR SIGN OlFFERINCE 



/•♦ 

/si» 



/TEMP STORAGE OP DIFFERENCI, BOTH POS EXP OR BOTH NEC'," 

/OK (♦•) 
/USE LARGER 



I ABSOL 
EXP 

SNA CLA 
FIXM 

0V£R1 
P27 
EXl 
ALIGN 



/TEST FOR FRACTION 

/DOU?LE CHECK FOR MINUS ONE. 

/INIT ALIGNMENT 

/DO THE ALIGNMENT TO AN INTEGER 






^tamSimitmt^iMIMMmSUU^^iMiiiiiilia^si 



3022 

3P'23 

3G24 

3(?25 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

304(8 

3041 

3042 

3043 

3044 

3049 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3056 

3059 

3060 

3061 

3062 

3063 

3(164 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 



ClALlS V.-*03 



6736 

6737 
6740 

6741 

6742 
6743 
6744 
6745 
6746 
6747 
6750 
6751 
6752 
6753 
6754 
6755 
6?56 
6757 
6760 
6761 
6762 
6763 
6764 
6?65 
6766 
6767 
6770 
6771 
6772 
6773 
6774 
6775 
6776 

6777 

7000 
7001 
7002 
7003 



«J27 

2?!47 
5344 
?046 
7410 
2*345 
3047 
4752 
3346 
5724 
.'027 
5571 
7173 
3044 
3045 
3346 
5344 
;'000 
73l'0 
1045 
7510 
7020 
7010 
3045 
1046 
7010 
3046 
1047 
7010 
3047 
2044 
5757 
5757 
6777 
■■i337 
/377 
0212 
i.'375 
7777 



TEST2. 



23106 PAGE li 

/ALREADY OONEI (43)«rOR 4aWOR0 




e27. 

ABSOL» 
RESOLi 
FIXM, 



DIV2. 



/CLEAR THE FRACTION 

/EXjT WITH LOW ORDER RESULT IN AC, 



/CLEAR EXPONENT 



ii;jAN"7i 

0027 

IS? 0VER2 

JMP ,•4 

ISH LORD 

SKP 

ISZ NORD 

DCA 0VER2 

JMS I RESOL 

TAD LORD 

JMP I FIX 

27 

ABSOLV 

RESOLV 

DCA EXP 

DCA HORO 

DCA LORD 

JMP TEST2*6- 

/SHIFT FLAC RIGHT 

CLA CLL 

tAO HORD 

SPA 

CML 

RAR 

OCA HORO 

TAD LORD 

RAR 

DCA LORD 

TAD 0VER2 

RAR 

DCA 0VER2 

ISi EXP 

JMP I DIV2 

JMP I DIV2 
SPECIAL*. /INPUT CHARACTERS 

337 /LEFT ARROW 

377 /RUBOUT 

212 /L.F. 

375 /ALT MODE 

• 1 
/<A*B*C)«(0*E*r)PA«OiA»EiB«D.B«E 
OMULt» /N- PREcISlO^J MULTIPLT WITH 

lAC /PRODUCT IN TRIPLE PRECISION 

tAb EXl /ADD EXPONENTS*! 



JMS SIGN 
SPA CLA 
JMS MINUS2 
DCA OATUM-1 
DCA OATUMeZ 
DCA OATUMaS 
OCA 0ATUM«4 
tAD A 
SAVE 
TAD 
MULTY 
2 



/AND DETERMINE SiCN OF RESULT 



/INITIALI2E RESULT 



/A*0 

/STORE IN MP2 

/SINGLE PRECISION MULTIPLY 



/ACCUMULATE STARTi 



../ f 



IN #2 DATA WORD 



/rocLi? 


:?7 


-JlALlC 


Vk.;v'3 


li;jA'.'r71 


33106 PAGE 1<»56 


3?77 


7,'?3 


1342 




TA Z 


/a»e: 


3C7S 


7.'24 


"752 




^'.ULTY 




3079 


. 7.'25 


30 3 




3 




3080 


7^26 


1046 




TAD B 


/B»D 


3031 


7.-^27 


3751 




SAVE 




3?82 


7e3i3 


1?41 




TAD D 




3083 


7031 


4752 




MULTY 




3084 


7C32 


;-303 




3 




3085 


7033 


1042 




TAD E 


/B«E 


3086 


7034 


4752 




multy 




3067 


7P35 


1.004 




4 




3088 


7?36 


5263 


0MULT4, 


JMP DMDONE 


/{Oca OATUM-»5)«roR 4«W0RD 


3089 


7037 


3274 




DCa OATUM06 




3090 


7?43 


1043 




Tad f 


/A«F 


3091 


7?41 


3751 




SAVE 




3092 


75^42 


1045 




TAD A 




3093 


7?43 


4752 




MULTY 




3094 


7044 


,"304 




4 




, 3095 


7045 


1046 




TAD B 


/B»r 


3096 


7046 


4752 




MULTY 




3097 


7047 


'•005 




5 




3098 


7050 


1047 




TAD C 


/c»d 


3099 


7051 


3751 




SAVE 




3100 


7052 


1341 




TAD D 




3101 


7053 


4752 




MULTY 




3102 . 


7054 


•?004 




4 




3103 


7055 


1042 




TAD E 


/C»E 


3104 


7056 


4752 




MULTY 




3105 


7057 


e.005 




5 




3106 


7060 


1043 




tAD r 


/C«F 


3107 


7061 


4752 




MULTY 




3l08 


7062 


I 006 




6 




5109 


7063 


1301 


omdonCI 


TAD 0ATUM»1 


/COPY RESULT 


3110 


7064 


3345 




DCA HORO 


.. . 


.3111 


7365 


1300 




TAD DATUMbZ 


' 


3112 


7366 


3046 




DCA LORD 




: Sll3 


7067 


1277 




tAD OATUM«S 




3114 


70^0 


3^47 




DCA 0VER2 




-3115 


7071 


4301 




JMS MULOIV 




;3ii6-. 


7072 


3047 




DCA 0VER2 


. /«N0P) • FOR 4.W0R0 


3117 


7073 


5604 




JMP I DmuLT 




3118 




7102 


OATUM»V 


♦6 /INTEflMEOlATE STORAGE 


3119 


7074 


'000 




0/i!(6»LOW ORDER 


RESULT. , 


■3120 ^ 


7075 


'.'000 




0/«5 




.3121 


7e76 


.000 




0/«4 




3122 


7077 


-300 




0/IK3 




3123 


71^0 


•000 




0/i((2 




3124 








/#i-high order 


RESULT 


3125 


71P1 


■003 


MULDiV; 


/TERMINATE MULTIPLY AND DIVIDE. 


3126 


7102 


2350 




ISZ SICNF 


/CORRECT FOR SIGN 


3127 


71 ?3 


4451 




JMS 1 MINSKI 




3128 


■ 7104 


4747 




JMS I NORMF 


/SHIFT LEFT 


3129 


7105 


7030 




NOP 


/• 


3130 


7106 


5701 




JMP I MULDIV 




3131 


7107 


.1041 


FLDV, 


TAD ACIH 


/4IDIVI0E 



) .^' 



3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3146 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3190 

3181 

31S2 

3183 

3184 

31S5 

3186 



7110 
7111 
7112 
7113 
7114 
7115 
7116 
7117 
7120 
7121 
7122 
7123 



7124 
7125 
7126 
7127 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
•7140 
7141 
7142 
7143 
7144 
7145 



7146 
7147 
7150 

7151 

7152 



765.^ 
4566 

j.?4a 

7!t41 
7i^i31 
4324 
77?i! 
4353 
4750 
4301 
5723 
6401 



x-000 

1044 
3044 
1124 
t'345 
1341 
7700 
7340 
3050 
1045 
7450 
5746 
7710 
4451 
1041 
7450 
5746 
5724 



6522 
7335 
7261 
3751 
7256 
4752 
7230 
•11345 
. ?46 
V.047 
'041 
1^042 
l'043 



llijAN»71 

SNA CLA 

E:RflOR2 
TAD EXl 



23106 PACE 



# 



CMA 
lAC 
JMS 
SMA 



lAC 



/DIVISION BY iE«»0 
/SUBTRACT EXPONENTS*! 



/SET UP SIGNS 



SIGN 
CLA 
^ JMS MINUS2 /NEGATE PiVlSOR 
JMS I DIVIDE /DIVIDE 
JMS MULOIV 
JMP 1 ,*1 

FPNT*! 

/THIS SUBROUTINE PREPARES MULTIPLY AND DIVIDE 
/FOR ANY COMBINATION QF SIGNED ARGUMENTS AND FOR ZERO, 

/THE Result or either is zero if flag « 0, 

/RESULT OF MULTIPLY IS HERO iF EITHER IS iEROI 
/DIVISION 9Y ZERO IS CHECKED BEFORE THIS 
/ROUTINE IS CALLED. 

/THE Calling ac contains an update value for the 

/EXPONENT, THE RETURNING AC CONTAINS TwE SIGN OF 
/THE ARGUMENT FOR FURTHER TESTING BY EACH ROUTINE, 
SIGN. /TEST AND SAVE SIGN OF RESULT 

TAD EXP /COMPUTE NEw EXPONENT FOR MUL-DIV, 

DCa EXP 

/LOAD 4000 TO XOR THE SIGN BITS 



TAD P4000 
AND HORO 
tAO ACIH 
CLA 



SMA 
CMA 
OCA 
tAO 
SNA 
JMP 

SPi 

JMS 

TAD 

SNA 

JMP 

JMP 
/SIGM OF RESULT 
/♦■il 
/-■0 
REVIT» 
NORMFi 
DIVIDE. 
SAVE»DCA 1 

MP2 
MULTY'JMS 1 

MP4 
A«FlaC*1 
B«FlaC*2 
CiTlaCaS 
OfAClH 
E'ACIL 

r«oveRi 



signf 

HORD 

I REVIT 

CLA 

I MlNSKI 

ACIH 



REVIT 
SIGN 

• SIGNF 



/RESULT MAY BE ZERO 



/ANSWER IS ZERO, 

/TAKE ABSOLUTE VALUE OF FLAC 



/RESULT or EITHER HAY BE ZERO 



ZERO 

DNORM 

OUROIV 



> 





/rOCLl2 


3 7 


LlALlC 


V.TJ 


11- 


J'N»7l 


23IH6 PAGE l^SS 


3187 


71?3 


, ?i()i0 


Mr\us2 


• 


/NEGATE 


OPERAND 


3ia8 


7154 


73,'if 




'lA 


CLL 


/TRIPLE PRECISION 


3109 


7155 


rM3 




TAD 


OVERl 




3190 


7156 


7041 




CMA 


lAC 




3191 


7157 


3043 




, OCA 


OVERl 




3192 


716ft 


1042 




■ TAD 


AClL 




3193 


7161 


704i? 




CMA 






3194 


7162 


743?! 




SZL 






3195 


7163 


7101 




lAC 


CLL 




3196 , 


7164 


3042 




DCA 


AClL 




3197; . 


7165 


1041 




TAD 


ACIH 




3198 


7166 


7040 




CMA 






3199 


7167 


7430 




S2l 






3200 


7170 


7101 




I AC 


CLL 


; 


3201 


7171 


3041 




OCA 


ACIH 




3202 


7172 


5753 




JMP 


I MINUS2 




3233. 


7173 


>'300 


resolv 


; 






3204 


7174 


l'D50 




TAD 


sicnf 




3205 


?l!5 


7710 




SPA 


CLA 




3206 


7176 


4451 




JMS 


I MINSKI 




3207 


7177 


5773 




JMP 


I RESOLV 




3239 




7200 


• 7200 








32e9 


7200 


11000 


MP4, 


3 


/SINGLE 


PRECISION! UNSIGNED 


3210 


7201 


7450 




SNA 


/NO RESULT ADDED IF iEBO 


3211 


7202 


5600 




JMP 


I MP4 




3212 






/FOR Zkl INSERT THE FOLlOWINGI 


32l3 






/7203 


3206 


OCA .*3 




3214 






/7204 


1256 


TAD MP2 




3215 






/7205 


7425 


HOL MUY 




32i6 






/7206 


1^000 







3217 






/7207 


3253 


DCA MPS 




3218 






/7210 


7501 


MOA 




3219 






/7211 


3255 


OCA MPS 




3220 






/7212 


5227 


JMP ,*15 




3221 


7203 


3254 




DCA 


MPl 


/12 SITS BY 12 BITS 


3222 


7204 


3253 




DCA 


MPS 




3223 


7205 


1257 




TAD 


THIR 




3224 


7206 


3255 




DCA 


MPS 




3225 


72("7 


7100 




CLL 






3226 


7210 


1254 


MP6, 


TAD 


MPl 




3227 


7211 


7010 




RAR 






3228 


7212 


3254 




DCA 


HPl 




3229 


7213 


l253 




tAD 


MPS 




3230 


7214 


7420 




SNL 






3231 


7?15 


5220 




JMP 


,*3 




3232 


7216 


71?0 




CLL 






3233 


7?17 


1256 




TAD 


MP2 




3234 


7220 


7''10 




RAR 






3235 


7221 


3253 




DCi 


MP5 /SAVE HIGH ORDER RESULT 


3236 


7222 


?255 




IS? 


MP3 




3237 


7223 


5213 




JMP 


MP6 




3238 


7224 


i254 




tAn 


MPl /CORRECT 


LOW ORDER RESULT 


3239 


7225. 


7«'10 




RAR 






3240 


7226 


3255 




OCA 


MPS 




3241 


7227 


160? 




TAD 


I MP4 


/PICKUP SCALE FACTOR 



"MULTY" 



tc 



/F0CL12 


:^^B 


:.ULin 


V'C3 


11^, 


;an»71 


2312'. PAGE l^p 


3242 


7? 7: 


7,U1 




CIA 






3243 


7??1 


1252 




TAn 


datuma 


/COMPUTE ADDRESS 


3244 


7?32 


3254 




OCA 


MPl 


/TEmp 


3245 


7233 


1255 




TAD 


MP 3 


/LOy ORDER PaRT 


3246 


7?34 


71G£! 




CLL 






3247 


7535 


1654 




TAD 


I MPl 


/ACCUMULATE 


3248 


7236 


3654 




OCA 


I MPl 




3249 


7237 


2254 


. \ 


1S2 


MPl 




3250 


724? 


72?4 




RAL 






3251 


7241 


1253 




tAb 


MP5 




3252 


7^42 


1654 




tAD 


I MPl 




3253 


7243 


3654 




OCA 


I MPl 




3254 


7244 


742G 




SNL 






3255 


7245 


563? 




JMP 


I MP4 


/NO CARRY 


3256 


7?46 


2254 




IS2 


MPl 




3257 


7247 


2654 




IS2 


I MPl 




3258 


7353 


".630 




JMP 


I MP4 


/EXIT 


3259 


7251 


5246 




JMP 


.•3 


/CARPY AGAIN 


3260 








///// 




3261 


7252 


7102 


DATUMAi 


DAtUM 




3262 


7253 


-.'033 


MPS, 







/PR.OOUCT 


3263 


7254 


i'000 


MPl, 







/MULTIPLIER 


3264 


7255 


f^00fl 


MP3, 









3265 


7256 


.'030 


MP2, 







/MULTIPLICAND 


3266 


7257 


7764 


TMIR. 


-14 


/12 BITS 


3267 


7260 


7751 


Mir, 


•27 




/(•43) - rOR 4>W0RD(i7735) 


3268 


7261 


;'a30 


ouBoiv; 





/2 OR 


3 PRECISION DIVIDE 


3269 


7262 


3200 




DCA 


MP4 




3270 


7263 


3254 




DCi 


MPl 




3271 


7264 


l260 




TAD 


Mir 


/INIT BIT COUNTER 


3272 


7265 


3255 




DCA 


MP3 




3273 


7266 


7413 




SKP 






3274 


7267 


4527 


DV3. 


JMS 


I DOUBLE 


/SHIFT rLAC LErT 


3275 


7273 


71(50 




CLL 






3276 


7271 


1042 




TAD 


ACIL 


/COMBINE ONE POSITION AND (4-WORD) 


3277 


7272 


1046 




TAD 


LORD 




3278 


7273 


3256 




OCA 


MP2 


/SAVE RESULT 


3279 


7274 


7004 




RAL 






3280 


7275 


1045 




tAD 


HORO 


/ADD OVEPrLOW 


3281 


7276 


1041 




fAD 


ACIH 




3282 


7277 


7423 




SNL 




/SKIP ir ovEprLOw 


3283 


73iJ0 


5304 




JMP 


.♦4 




3284 


73(?1 


3345 




DCA 


hORO 


/UPDATE rLAC 


3285 


73f2 


1256 




TAD 


MP2 




3286 


73e3 


7346 




DCA 


LORD 




3287 


73C4 


7200 




CLA 




/CLEAR ACCUMULATOR 


3288 


7305 


1254 




TAD 


MPl 


/SAVE OVERfLOW BITS CIRCULARLY 


3289 


7336 


7??4 




RAL 






3290 


7307 


3254 




DCA 


MPl 




3291 


7310 


iZctJ 




TAD 


MP4 




3292 


7311 


7304 




RAL 






3293 


7312 


32?0 




OCA 


MP4 




3294 


7313 


2255 




IS2 


MPS 


/TEST TOP END OF DIVIDE 


3295 


7314 


5267 




JMP 


0V3 




3296 




1254 




TAD 


MPl 


/LOAD RESULTS 

9 



tfv 




/rOCLl2.^7 



3297 
3298 
3299 
3300 

33f!l 
3332 
3323 
3334 
3305 
33P6 
3307 
3308 
3309 
3310 
33H 
3312 
33l3 
3314 
3315 
3316 
3317 
3318 
33l9 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3323 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
333S 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
-3346 
3349 
3350 
3351 



7316 

7317 

7320 

7321 

7322 

7323 

7324 

7325 

7326 

7327 

7330 

7331 

7332 

7333 

7334 

7335 

7336 

7337 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7350 

7351 

7352 

7353 

7354 

7355 

7356 

7357 

7360 

7361 

7362 

7363 

7364 

7365 

7366 

7367 

7370 

7371 

7372 

7373 

7374 

7375 

7376 



ONORMi 



OlALl" ViH"3 



3046 

l200 

3345 

5661 

7iiidA 

3335 

2255 

5267 

3 335 

3345 

l2?0 

3046 

1254 

3347 

5661 

.'030 

4775 

4366 

1045 

7450 

1047 

7450 

1046 

7650 

5363 

1045 

7104 

7710 

5360 

4527 

7140 

1044 

3344 

5347 

4776 

4366 

5735 

7044 

5735 

6757 

•/000 

5345 

75ie! 

7041 
7710 
4765 
5766 
5571 
7173 
74Cip 



llijAN*?! 



2310*^ PAGE l'*60 



/(NOP) 

/EXTi^A Fc.R 4«WC)R0 

/TEST rOR END OF OIVIOC 



dca lord 

TAD MP4 

DCA WORD 

JMP 1 0U90IV 

RA^ 

DCA ONORM 

IS? MP3 

JHP 0V3 

TA(3 DNORM 

DCA HORO 

TAD MP4 

OCA LORD 

tAD MPl 

OCA 0VER2 

JMP I DU8D1V 

/SUBROUTINE TO N0RMAL12E fLAC 

JMS I ABS0L3 

JMS TEST4 

TAD HORD 

SNA 

TAD 0VER2 

SNA 

TAD LORD 

SNA CLA 

JMP EXITS 

TAD HORO 

RAL CLU 

SPA CUA 

JMP ,♦6 

JMS I DOUBLE 

CMA CLt. 

tAD EXP 

OCA EXP 



/IS MANTlSSAfB? 



/YES 



/WILL SHirT BE Too PAR? 



JMP 
JMS 



.-le 

I RES0L3 



JMS TEST4 
JMP I DNORM 



EXIT3» DCA EXP 



XRAR2I 
TEST4I 



JMP 1 DNORM 
DIV2 



TAD HORO 
SPA 
CIA 
SPA CLA 



7400 4437 

7401 6274 
74^2 ,000 



ABS0L3, 

resols; 

• 7400 
/PACE 1 

XSQRTi 



JMS 
JMP 



I XRAR2 
I TEST4 



/00n»T LEAVE 4000 

/SET TO ZERO 
/RETURN 



/TEST FOR 4000 



/SHIFT BACK 



ABSOLV 
RESOLV 

8 

/FLOATING SQUARE HOoT FUNCTION 

FINT 

FPUT FPACl /VALUE 

I'EXT /NEWTON'S METHOD IS USED 



/rOCLl2.37( 



:IAL1C y'las 



li-JAN»7l 



23l?i PAGE 1»| 



3352 
3353 
3354 
3355 
3356 
3357 
3356 
3359 
3363 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 

3375 
3376 
3377 
3378 
3379 
3380 
3381 
33S2 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3430 
3431 
3432 
3403 
3404 
3435 
3436 



74r6 
74. ■'7 

7411 
7412 
7413 
7414 
7415 
7416 
7417 
7423 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7432 
7431 
7432 
7433 
7434 
7435 
7436 
7437 
7440 
7441 
7442 
7443 
7444 
7445 
7446 
7447 
745? 
7451 
7452 
7453 
7454 
7455 
7456 
7457 
7460 
7461 
'462 
7463 
7464 
7465 
7466 
7467 




' ,'?45 
77lt' 
4566 

ia44 

751P 
7323 
7310 
327D 
7430 
227? 
7000 
l267 
3271 
3272 
3273 
1275 
7450 
1276 
7650 
5265 
4407 
•.-.274 
3270 
1270 

7240 
1044 
3044 
1044 
7041 
1270 
7640 
5261 
1045 
7041 
1271 
7640 
5261 
1246 
7341 
1272 
75130 
7041 
7301 
77^0 
5536 
4437 
6270 

5227 

3344 
5536 

3015 
7470 

^1000 



070001 



CLCU, 



ROOTGO; 



SO£NOi 

SQCOMl, 
BUFFER? 
iTERli 



■ GETSGN 

SP4 CLA 

ERR0R2 

TAD EXP 

SPA 

CML 

R Afl 

tDCA ITEHI 

S2l 

IS? ITERI 

NOP 

TAD SOCONl 

OCA ITERl*l 

OCA ITER1*2 

OCA 1TER1*3 

tAD FPAC1*1 

SNA 

tAD FPACl*2 

SNA CLA 

JMP SQEND 

FlNT 

FGET FPACl 

FDIV ITERI 

FAbO ITERI 

FEXT 

CL* CMA 

TAD EXP 

OCA EXP 

TAD EXP 

CMA lAC 

tAO ITER! 

SiA CLA 

viMP ROOTCO 

TAO hORD 

CMA lAC 

TAD ITERI*1 

S2A CLA 

JMP ROOTGO 

TAO LORD 

CMA lAC 

TAD ITEfll*2 

SMA 

CMA lAC 

lAC 

SMA CLA 

RETURN 

FINT 

FPUT ITERI 

FEXT 

JMP CLCU 

OCA EXP 

RETURN 
. 3015 
• 





/NUMBER IS MEGaTIVE«IMAGINARY RQOTS 

/Llv< IS ■0 FROM FINT 

/MATCH The sign WITH LINK BIT 



/MAKE FIRST APPROXIMATION 
/TEST LSB OF EXP 



/NUM9ERi0 



/ARE EXPONENTS EQUAL? 

/NO 

/ARE HICh-OROCR mANTiSSAS EQUAL? 



/NO 

/OO LOW-ORDER MANTISSAS AGREE 
/WITHIN ONE BIT? 



/. ' 



/rocii? 


.^7 


z-Uii?. 


ViM^ 


lli^J.. ■<« 


34^7 


7471 


r:D 




7 


34::8 


7472 


,0gp 






Zi:9 


7473 


JOC 




A 


3410 


■T^M 


'P^C 


F;-A; i, 


'i 


3411 


7475 


,?CP 




i? 


34l2 


7476 


':^3S 




C 


3413 


7477 


7503 




BUFFER* 


3414 










3415 


75?e 


.;300 


SCOPOU 





34i6 


75C1 


■ 106 




AND 


34l7 


75?2 


1367 




TAD 


3418 


75?3 


744C 




SEA 


34l9 


75,M 


53lC 




JMP 


3420 


75t«5 


3364 


CRLr, 


DCA 


3421 


75?6 


2365 




IS2 


3422 


75t'7 


5321 




JMP 


3423 


7513 


i37l 


nocrlF, 


TAD 


3424 


7511 


7100 




CLL 


3425 


7512 


11306 




TAD 


3426 


7513 


7420 




SNL 


3427 


7514 


7610 




SKP CLA 


3428 


7515 


1361 




TAD 


3429 


7516 


7453 




SNA 


3430 


7517 


57321 




JMP I 


3431 


7520 


2364 




IS2 


3432 


7521 


6032 


iTSOKi 


lOF 


3433 


7522 


6141 




LINC 


3434 






LMOOE 




3435 


7523 


i'644 




LOF 4 


3436 


7524 


1362 




STh I 


3437 


7525 


.'Pll 




CUR 


3438 


7526 


i'0P2 




POP 


3439 






pmode 




3440 


7527 


62?1 




6201 


3441 


7530 


2366 




IS? 


3442 


7531 


1366 




TAO 


3443 


7532 


1215 




tAD 


3444 


7533 


7710 




SPA CLA 


3445 


7534 


1361 




TAO 


3446 


7535 


1365 




TAD 


3447 


7536 


771.11 




SPA CLA 


3448 


7537 


5356 




JMP 


3449 


754C 


l366 




TAD 


3450 


7541 


6213 




6213 


3451 


7542 


4fl20 




JMS 


3452 


7543 


6.131 




KSF 


3453 


7544 


534:5 




JMP 


3454 


7545 


6134 




KRS 


3455 


7546 


J372 




tAD 


3456 


7547 


765-? 




SNA CLA 


3457 


755^ 


6132 




KCC 


3458 


7551 


l370 




TAD 


3459 


7552 


3774 




OCA I 


3460 


7553 


3366 




DCA 


3461 


7554 


3365 




DCA 
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13 /ADDRESS OF nEXT FREE LOCATION IN 10»OIGIT VERSIONi 
/•7503 /••••••»• 

/•••••••• OUTPUT ROUTINE FOR SCOPE 

P177 /••»••••• STORES CHARS IN FlOli LOCS 4a0;7T7 

C7763 / •• 

NOCRlF /••»««»»» 

NCOLS /•••«••«» 

NFEEDS /••»«»•»» 

ITSQK /•••«•••» 

07655 /••».•••• 

NLINES /•»»••••• 

SCOPOU /»•»«•»»• 
NCOLS /••»»«••# 

/•••»•••• 
/**••«•#• 

OPTR /•••••••# 

/«««••••• 

NCHARS /•••••••• 

NCMARS /•••••••• 

07000 /•••»•••» 

NLINES /••••••»• 

NFEEDS /••• 

NOHANG /•••••••• 

nchars /•••»•••» 

/«•••»••• TOO MANY LINES/CHARS DISPLAYED 
WAITER /••»••••• mAnC ON DISPLAY UNTIL SOMETHING IS TyPED-^ 

07566 /•»•••••• 

/•••«••»» IGNORE LINE FEED 
06377 /•••••»•» 

PPTR /•••••••• CLEAR 

NCHARS /•••»•••• THE 

NFEEDS /••••••»• CHARACTER 



t 



/rOCLl2,3l 



OlALlC 



3462 


7555 


3364 


3463 


7556 


6H.M 


3464 


7557 


j364 


3465 


7560 


1373 


3466 


7561 


7740 


3467 


7562 


5305 


3468 


7563 


57C0 


3469 


7564 


;:0?3 


3470 


7565 


I' 030 


3471 


7566 


:*J00 


3472 


7567 


7763 


3473 


7570 


6377 


3474 


7571 


7655 


3475 


7572 


7566 


3476 


7573 


7716 


3477 


7574 


6002 


3478 




7576 


3479 






3480 






3481 






3482 






3483 


7576 


4453 


3484 


7577 


6213 


3485 


7600 


5601 


3486 


7601 


2f71 


3487 


7602 


4407 


3488 


7603 


4251 


3489 


7604 


(•000 


3490 


7605 


4453 


3491 


7606 


7510 


3492 


7607 


7041 


3493 


76I0 


3350 


3494 


7611 


1066 


3495 


7612 


1256 


3496 


7613 


7640 


3497 


7614 


4566 


3498 


7615 


4540 


3499 


7616 


1612 


3500 


7617 


4407 


3501 


7620 


4253 


35p2 


7621 


V 300 


35213 


7622 


4453 


3504 


7623 


3351 


3505 


7624 


1271 


3506 


7625 


1247 


3507 


7626 


765^ 


3539 


7627 


4566 


3509 


7630 


6002 


3510 


7631 


6211 


3511 


7632 


7350 


3512 


7633 


.•350 


35l3 


7634 


3671 


35l4 


7635 


2271 


35l5 


7636 


l35l 


3516 


7611 


1250 



Vtns ll-JANi.71 ?3lil6 PACE H 

DCa \C0LS /•••••••• DISPLAY 

nohanc; iom /••»••••» 

TAO NCOLS /••••••#• 

tAO 07716 /*•#••••• 

MINES, SMa S2A CL* /•••••••• 

JMP CRir /•••••••# 

JMP I SCOPOU /•••••••• 

NCOlS» • /#••••••• 

NPEEOS, 2 /••»••••« 

nchars; /•••••••• 

077631 7763 
063771 6377 

07655i 7655 /•••••••» 

07566» 7566 /#•••♦••• 

077l6» 7716 /••«•«•«« 

PPTR, OPtR /*••••••• 

•7576 /••••#••• 

/ 

vrOlS PUNCtlON ; STORES 2 WQROS 

/PER Call in 2200 thru 5777 im floi 
/ 

CALLIN. JMS I INTEGER /•♦•••••• 

6213 /•*«•*••• 

JMP 1 ,*1 /•••••••« 

INCALL /••»•*•#♦ 

XOlSPi TINT /••»••••« 

rMUL rORHUN /•*•••••• 

TEXT /•••••••• 

JMS I INTEGER /•»•**••# 

SPA /•#»»••»• 

ClA /•#•»••»• 

OCA STEMP /•••»•••# 

TAD CHAR /•*#•••*• 

TAD MMCOM /•••••••• 

S2a CLA /•••»»•»• 

ERR0R3 /••»••••• 

PUSHJ /••*••••• 

EVAL-l /•••••••• 

TINT /••••»••• 

TMUL riVHUN /•••••••• 

TEXT /••*••••• 

JMS I INTEGER /•#•••••# 

OCA STCMP2 /•*•••••• 

TAD SPTR 

TAD MLIMIT 
SNA CLA 
ERRORS 

lor /•••••••• 

6211 /cor xu /•••••••• 

CLA CLL CMA RAR 

AND STEMP 

DCA I SPTR /#♦»#•••• 

ISI SPTR /•••*•••« 

tAO STEMP2 /••••»••• 

tAO 07400 /#•»••••• 



{r^ 




/F0CL12.37 llALlJi ViH'S llijAN-7l 23106 PAGE 1»64 • 

35l7 76«i' 3671 OCA 1 SPTR /•••••••• 

35ie 7641 S271 IS? SPTR /••.••••• 

3519 ■ 76<2 724;^ CLA CMA /••..•••# 

3520 76<3 3671 DCA I SPTR /•••••••• 

3521 7644 6201 62P1 /CDF /•••••••« 

3522 7645 6v?31 ION /••#••••• 

35?3 7646 5536 JMP I EFUNSJ /•••••••• 

3524 7647 22-32 MLlMlTi -5776 /(-LAST lOC OF DISP POINTS"!) 

. 3525 7652 740? 07400, 7400 /•••••••» 

3526 7651 911 FORHUN; 11J2700 /•••••••• 

7652 27B0 

3527 7653 .«11 FIVHuN; ll|3770J0 /••«••»•• 

7654 J770 

7655 :0oe 

3528 7656 7524 MMC0M» -254 /•••••••« 

3529 / 
3533 /JMS Wait is EQUIVALENT 

3531 /TO jMp .■2 WITH A REFRESH 0? 

3532 /THE DISPLAY ON THE WAY 

3533 / 

3534 7657 -000 WAIT. 3 /••••♦••• 

3535 7660 7346 CLA CLL CMA RTL /•••••••# 

3536 7661 3257 tAD WAIT /•• 

3537 7662 3257 OCA WAIT /•*•••*•• 

3538 7663 6002 lOF /• 

3539 7664 l732 tAO I PNCHARS /••••*•*• 

3540 7665 6213 62l3 /CIF CDF !«>/ ••• 

3541 7666 4020 JMS WAITER /••*••••• 

3542 7667 6001 ION /«••••#•# 

3543 7673 5657 JMp I WAIT /•••••••• 

3544 7671 1000 SPTR. 1000 /•••••••» 

3545 7672 '020 CLEAR* /••••••»• CLEAR POINTS FROM THE SCOPE ■ 

3546 7673 l334 tAO ODISSP /•••••#•• 

3547 7674 3271 DCA SPTR /•••••#•» 

3548 7675 6002 lOF /••»•♦»#• 

3549 7676 6211 6211 /CDF le /•♦••♦••• 
35518 7677 724P! CLA CMA /••♦•••»• 

3551 7700 3671 DCA I SPTR /• • 

3552 77!51 62(11 6201 /CDF /»••••••• -.": 

3553 77i'2 6001 ION /•••••••# * , 

3554 7703 5672 jMP I CLEAR /••••»•«• 

3555 7734 ?2!?0 ODlSSPi 2200 /•••••♦••(FORST LOC OF OISP POINTS) 
•3556 77r5 6335 PPASSi PASS 

3557 77C6 47k'5 OUTPUT, JMS I PPASS 

3558 77C7 i.4i3 POPA /•#••*••• JUMPS ON SUBCOMMAND OF OUTPUT XXX 

3559 7710 4547 SORTJ / •• 

3560 7711 7721 OLlST»l /•••••••• 

3561 7712 7772 050"0LlST/*««»»»«* 

3562 7713 4566 OERRORi ERR0R3 /•*•••••• j 

3563 7714 7752 P50, OC /«•#••••• 

3564 . 7715 7761 OD /•»•••### 

3565 7716 7753 OE /»••»••»• 

3566 7717 7763 OS /••••••#• f 

3567 77?0 7771 OT /••»•••»• 

3568 7721 7734 0! /•••••§•# 



/F0CLl2,37i 

3569 

3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3560 
3581 
3582 
3583 
3584 

3585 
3586 
3587 
3563 
3589 
359B 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
361?4 
36P5 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
36l3 
3614 
3615 



'UUlS 



vrijs 



ll-JAN-71 



23106 PACE 1 



# 



7722 

7723 
7724 

7725 
7726 
7727 
7730 
7731 
7732 
7733 
7734 
7735 
7736 
7737 
7740 
7741 
7742 
7743 
7^44 
7745 
7746 

7750 
7751 
7752 
7753 
7f54 
7755 
7736 
7757 

7760 
7761 
7762 
7763 
7764 
7765 
7766 
7767 
777PI 
7771 
7772 
7773 
7774 
7775 
7776 
7777 



3t^3 


CLiSTi 


303 


Z.U 




304 


3?5 




335 


■ 323 




323 


•324 




324 


• 311 




311 


6377 


006377. 


6377 


.'611 


OEX[Ti 


'.fROC 


7566 


pnchaRs 


iNCHARS 


6002 


POPTRi 


OPfR 


1066 


Oil 


TAD 


1256 




TAD 


765a 




SNA CUA 


5746 




JMP I 


2745 




IS! I 


1745 




TAD I 


7640 




SZA CLA 


4257 




JMS 


5731 




JMP I 


2661 


PCLKrLtS 


iCLKFLG 


5351 


PSETCUX 


iSEtCLK 


775!? 


#7750 




i«000 


STEmp* 





•.(000 


STEHP2; 





4575 


OCi 


JMS I 


3732 


OEi 


DCA I 


1330 




TAD 


3733 




OCA I 


3777 




DCA I 


3776 




DCA I 


5731 




JMP I 


7000 


ODi 


NOP 


4257 




JMS 


6002 


OS* 


lOr 


6141 




6141 


:10i?4 




0004 


'.■eez 




0002 


6001 




ION 


1375 




tAD 


1374 


OT. 


TAD 


3063 




OCA 


5731 




JMP I 


?676 


PXOUTL. 


XOUTL 


4602 


PSCOPOU 


iSCOPOLI- 


7564 


pncols; 


NCOLS 


7565 


pnfeeOs 


•nfeeos 


••0P1 ■ 


FIELD i 





/••«•*••• 

/••««•#•• 
/••*«•••• 

/•*•••••• 

/*•»*•••• 

/•••«•«•• 

CHAR /•#••#»•• 
MMCOM /*»•«*••• 

PSETCLK /•••••••• Ii EXPRESSION 

PCLKFLC /•♦• 

PCLKFLC /•••••♦•• 

WAIT /••••••»• 

OEXIT 

/«•••*••• 

/•••••••* 

/••••*••• 

/••»••••• 

PCLEAR /•••••••• 

PNCHARS /*••••#•• 

006377 - /••*••»•• 
POPTR /»•»•*••• 
PNFEEOS /#•#•#••• 
PNCOLS /•••••••• 

OEXIT /••»••**• 

WAIT /•••••♦•• 

/LINC /*♦»•#•»• 
/ESF /#»••••#• 
/POP //»♦»•»»*» 

PSCOPOU' /••*«•«•• SET OUTDEV TO SCOPOU 
PXOUTl. /•••♦•••• SET OUTDEV TO XOUTL 
OUTDEV /#♦*••••• 
OEXIT /•••*•••• 

XOUTL /#••••••• 



/rocLi2.:^7 



ULi; 



v:: 3 



ii-jAN-^ri 



2313* PAGE 1-66 






jiiiuii uuiiii 11111111 iiiiiiii imiiii uiiiiu iiiiuii 
iiiiiiii iiiiim 11111111 uiiiiu iiuiiii iiiiim iiiiiiii 



?2n iiiiiiii iiiiiiii iiiiiiii 11111111 iiiiiiii iiiiiiii uiiiiii iiiuiii 

5-302 lluiiil illlllil llllllll 11111111 llUllll llllllll 11111111 llllllll 



i'403 UililU 

i'Saz" iiiiiiti 

Z600 iiiniii 

?700 iiTiiiti 



llllllll llllllll llllllll llllllll llllllll illlllil llllllll 

illlllil iiiliiii llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll llllllll llllllll 

llllllll iiiliiil llllllll llllllll llllllll llllllll llllllll 



1300. llllllll llllllll llllllll llllllll llllllll llllllll llllllll llllllll 

1100 iiiiiiii illlllil iiiliiii llllllll llllllll llllllll llllllll llllllll 

1200 iiiiiiii llllllll liiliiii llllllll llllllll llllllll llllllll llllllll 

1300 iiiiiiii iliniii liiliiil llllllll llllllll llllllll llllllll llllllll 

1400 lltlilil llllllll llllilll llllllll llllllll llllllll llllllll llllllll 

1500 iiTiiiii mum llllllll llllllll llllllll llllllll llllllll llllllll 

1600 llllilll llllllll llllilll llllllll llllllll llllllll llllllll llllllll 

1700 liiiTiil llllllll llllilll llllllll llllllll llllllll llllllll llllllll 



?000 iiiiTiii illlllil llllllll 

2100 Illlllil illlllil llllilll 

2200 Illlllil flllllll llllilll 

2300 iiiiTiii llllllll llllilll 



2400 liiliiil 

2500 liiliiil 

2600 liiliiil 

2700 liiliiil 



illlllil 
illlllil 

llllllll 
llllllll 



llllilll 
llllilll 

llllilll 
llllilll 



llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 

llllllll llllllll llllllll llllllll llllllll 



3000 liiliiil llllllll llllilll llllllll llllllll llllllll llllllll llllllll 

3100 liiliiil llllllll GP000?I00 0000005)0 200000^0 00000000 00030000 1,30000000 

3200 O0!^0(»7iil 11111100 00000000 00000000 D000e0?0 00000000 00000000 00000000 

3300 P0'iP'S?t'!? : 011*10000 00-300000 00000000 ti30003?i0 0000P000 J'00a0t)00 00000000 

3400 

3500 

3600 liiliiil llllllll llllilll llllllll llllllll llllllll llllllll 11000000 

3700 b90i?0P?<?0 •030(->C390 0(^000000 000001000 E£9?00e;fl0 00000000 000000(^0 ^000(9000 



/rOCLl2,-«7 
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430? 
4100 

4200 

4300 * 

4400 
<S00 

liiiuii 
11111110 

llllllU 
11111001 

iiiuiu 
11111111 

llllllU 
lllUlll 

11111111 
11111000 

llllllU 
llllllU 

lUUlU 

11111110 

lUlUU 
llllllU 

llllllU 
llllllU 

llllllU 
lUlUll 

llllllU 

11111110 

llllllU 
11111011 

7600 uiiTiii llllllU llllllU Ilium llllllU iiuim lumii imim 



4600 


B0«0P?'?3 


•C'e«a0a0 iiUiiil umiii ij 


Liiiiii uuiiii Ilium 


4700 


uiiiiu 


imm lliliiil llllllU I] 


LlllUl llUllU llllUll 


5000 


Uiliiil 


ilium iiiiuii iiuiui. 13 


llllUl UUllli Ullllll 


5100 


UilTiil 


Ilium iiuiiu uiiiiu 1] 


Liiiiii uuiiu iiiimi 


5200 


liilTiil ' 


iiiiim luiiiii llllllU 13 


LlllUl Ilium iiiiiiii 


5300 


lliliiil 


Ilium iiiiiiu Ilium u 


Liiiiii llllllU Ullllll 


5400 


Uiliiil 


LlllllU miiui Ilium 13 


LlllUl llllllU iUlllll 


5500 


uiliiil 


Limiii luiiiii Ilium 13 


LlllUl ilium umiii 


5600 


uiiiiil : 


imiii lliliiil iimiii 13 


ullllll imiiu Ullllll 


5700 


lliliiil 


LlllllU lliliiil iimm 13 


.111111 Ullllll uimu 


6000 


lliliiil i 


iimm uuiui iiium u 


mill uuuii ilium 


ftl0O 


uiliiil i 


Limm lliliiil iiiiiui i] 


mill Ullllll llllllU 


6200 


uiiiiil 1 


LlllllU luiiui uiiiui 11 


mill uuiiu iiiiuii 


6300 


uiliiil 1 


mini miuii llllllU ij 


iiiui umm Ullllll 


6400 


uiliiil i 


lUllll lUliUl llllllU li 


iiiui Ullllll iiiimi 


6500 


uiiiiil 1 


.iiuiu lliliiil Ilium H 


mill mum umm 


6600 


uiiiiil 1 


iiiiiu uiiiui imim ii 


umi imiiu lumii 


6700 


uiliiil i 


mini luiiiii iimiii n 


iiiui iimiii Ullllll 


7000 


lliliiil 1 


Hum luiiiii Ilium ii 


iiiiu ilium umm 


7100 


uiiiiil 3 


mim uiiiiu iimiii 11 


mill Ullllll iiimii 


7200 


uiliiil 1 


iiiuii iiiiiiu llllllU u 


lUiu Ilium iiiimi 


7300 


uiiiiil .1 


mini llllllU Ilium 11 


mill umm umm 


7400 


uiliiil 1 


mini niiiiii Ilium n 


mill Ullllll luiim 


7500 


uiliiil 1 


mini luiiui iiiiiiii 11 


iiiiii iimm umm 






/F0CL12 


37 


DIAL 


3616 




•'»'Ji 


3617 


," ,•> ;i 1 


3,^{? 


3618 


^111:12 


•4. -pi 


3619 


?.?-?Z 


.2^3 


36213 


pi(!l?4 


125 


3621 


r'0n5 


1000 


3622 


ci??6 


• zae 


3623 


(»3i"7 


'360 


3624 




.'010 


3625 


1H'13 


:30P 


3626 


fi^ll 


■,.oc? 


3627 


P312 


■0?n 


3628 


PIJ113 


■'0I?0 


3629 


Pii'14 


,•001 


3630 


0;315 


. 760 


3631 


I?I016 


/O30 


3632 


fni7 


(C0£! 


3633 




■•('20 


3634 






3635 






3636 






3637 






3638 


91020 


■ •000 


3639 


0321 


7450 


3640 


B022 


5061 


3641 


«a23 


7040 


3642 


("324 


3006 


3643 


02125 


1076 


3644 


fli!!i26 


3005 


3645 


0327 


11107 


3646 


Pi?3{* 


3077 


3647 


C»031 


3031 


3648 


ripi32 


6141 


3649 






3650 


0033 


1325 


3651 


ffi354 


,'450 


3652 


C1035 


6045 


3653 


t^!136 


?f?77 


3654 


C037 


2015 


3655 


5»O40 


l560 


3656 


P?41 


703P 


3657 


na42 


4077 


3658 


P'?43 


40?1 


3659 


{"?44 


6056 


3660 


r!045 


241 


3661 


P^46 


?ei33 


3662 


C'lM? 


•ipld 


3663 


p:»5ei 


?n77 


3664 


P'r-Si 


1756 


3665 


('.■•52 


l776 


3666 


V"^5i 


221 


3667 


Pi.^54 


.221 


3668 


(7^55 


'311 


3669 


5i.?56 


;'226 


3670 


^^57 


6033 



V.^v'3 ll-JAt>j-7l 23136 PAGE l»6e 

»1 /•»••♦»»• 

XQi /»#••##»• 

D25ii. 400 /{RErCRENCEO AS lOC 2) 

02i'-'.'., 200 /(RETERENBED AS. LOC 3) 

D85, 125 /(RErERtNCED AS lOC 4} 

GAMMAi C /»••.»•#• 

CHRCvTi /•»••••«• 

036fl, 363 /••••»••• 

4tl0 /••«•••«• 

XRl, /•••♦•••• 

BLK2. /UNIT 

/ADDRESS 

/BLOCK -jUMBCR 

1 /NUMBER OF SLOCKS 
0760, 760 /•••»••#• 
AUPhAi /••••#••• 

BETA, /••»••••• 

•20 /•• 

/ 

/ENTCRCO WiTH NO, CHARS IN ACI REFRESH 

/FOB Chars and points 
/ 

WAITER! /•••»•••• 

SNA /•••••••• 

JMP NOASCII /•••••••• 

CMA /#•••»••• 

OCA CHRCNT /•••••••• 

TAD 04377 /•••••••• 

DCA GAMMA /•*•••••• 

TAD 0360 /•••••••# 

OCA Y /••••••». 

DCA XQ /•••»•••• 

LINC /••••#••» 
LMODE 

CHRLUPi LOM I GAMMA /••••*•#» 

Aze /•••••••• 

JMP GOODY /•♦•••••# 

ADD Y /•••••••# 

ADO 0760 /•••••*•• 

BCL I /»••••••» 

7000 /••»••••» 

STC Y /##•»•••» 

STC XQ /••••••#• 

JMP CHREND /•••••••« 

GOOOYi ROt. 1 /••#«•••• 

ADD 0200 /•»•»•••« 

STC ALPHA /•♦«o»»tt 

ADD Y /••»»•••§ 

DSC ALPHA /•••••••• 

DSC I ALPHA /•»•♦••«• 

XSK I XO /••#••••» 

XSK I XO /••«#»•»« 

CLR /#••••••• 

chreno; XSK I ChRCNT /•••••••• 

JMP CHRLUP /*••»•••• ONE TIME PER CHAR 



ittmttmmiiimmiilililiiiiimamlmmii^mimmil^^ 



/F0Cli2,M 



rULif v'^J's 



H-JAN-71 



23li)6 PAGE ll 



3671 

3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3634 
3685 
3686 
3687 
3668 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3695 
3699 

3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
37l3 
37l4 
37l5 
3716 
3717 
37i8 
37l9 
3720 
3721 
3722 
3723 
3724 
3725 



?»;'61 

!»?62 
7>^63 
("064 
'.1365 
0?66 
0067 
P070 
0071 
0072 

0073 
0074 
0375 
0076 
0077 
0100 
0101 

0102 
0103 
0104 
0105 
0106 
0107 
0110 
0111 
0112 
0ii3 
0114 
0ii5 
0116 
0117 
0120 
0121 
0122 
0123 
0124 
0125 



467 

6141 

1177 

22-m 

645 

6132 

.'077 

z^m 

:!646 
6l>52 
•■•002 

6203 
7200 
5420 
4377 

L'000 

•. 171 
'1173 

(1056 
f 000 
i'4l5 
i'.467 
6072 
f530 
6041 
^^467 
6072 
1017 
1-467 
1037 
0451 
6072 
400$ 

1037 
-145 
v2l7 
6115 
6016 




SKP 

\iOASCll.Ll\C 

SET I BETA 
2200 
LOr 5 
JMP SUBR 
SET 1 BETA 
* 2000 
LDF 6 
JMP SUSR 
POP 



WEXlTi 
PHOOE 



043771 

Yi 

PSUBS* 

PUESUBS 

LMOOe 

SUBR. 



6203 

CUA 
JMP I 
4377 


SUBS 
•LCSUBS 



/GIF CDr 
WAITER 



/•••••••• 




/•««••#•• 


/••»••••• 




/*•*•*••• 


/••«••••• 




/••*••••• 






/ 


/•••••••• 



WAlTuPi 



PMODE 
XLO. 

XLC. 

XLLi 

XUS. 

XLG, 

X7774i 
X7775I 

PLNLfMi 

pcetrhs 



SET ALPHA 

0000 

KSt 

SKP 

JMP WEXIT 

IDS 

TSF 

SKP 

JMP WEXIT 

LDi BETA 

SKP 

LOa I BETA 

APO 

JMP WEXIT 

STC GAMMA 

LDi I BETA 

DIS GAMMA 

XSK BETA 

JMP WAITLP 

JMP ALPHA 



JMP I 
LOPEN 
JMP I 
LCLOSe 
JMP I 
iLOAD 
JMP I 
LSaVE 
JMP I 
LChAIN 
7774 
7775 
LNgM 
iGETRHS 



/ 



DISPLAYS POINTS 



/«••••••• 

/•••••••• 

/•*•••••• 



^ ^ 



/rOCLl2, 


,17 


ulALl?! 


v.,;'3 


ll-JAN»71 


3726 


;"i 4 4 


il6P 


PLU-^ILO 


.LO^ILD 


3727 


;n^5 


1177 


PSLNAf*; 


LNAHE*5 


3728 


"146 


12.10 


P6L^JAM, 


LNAf^E^e 


3729 


?147 


. 3^? 


CHirLAC, 


T 
t 


3730 


3150 


;;030 


hiss. ,• 


? 


3731 


Pl51 


! 003 


LOSS. 


e 


3732 


r!i52 


2135 


PFlLTAB 


.FILTAB 


3733 


?153 


i342 


PLOQKUP 


.LUKUP 


3734 


f«l54 


i600 


PCOmmOn 


iCOhmON 


3735 


. ("155 


l361 


pseplAc 


.replace 


3736 


<^\56 


>Zd0 


MYTC«P. 





3737 


P157 


(030 


MYTMP2, 





3738 


0160 


2076 


PPIMSh 


.FINISH 


3739 


P161 


''090 


SWITCH, 


Pi 


3740 


0162 


(000 


SWTmPi 





3741 


0163 


2124 


PBiruG. 


BlFLG-1 


3742 


0164 


.1030 


MYACl* 





3743 


f!l65 


k-002! 


MYAC2I 





3744 


P166 


:;i?>O0 


MYAC3» 





3745 


0167 


.•BI44 


piflac; 


FLAG 


3746 


(9170 


!'245 


p2rLAc; 


FLAC^l 


3747 


21171 


■..;046 


p3Flac; 


FLAC*2 


3748 


P1172 


7764 


07764. 


7764 


3749 


?il73 


6300 


O600»» 


6000 


3750 


Pil74 


7420 


074201 


7420 


3751 




0177 


• 177 




3752 


Ci77 


6203 


terror; 


6203 


3753 


B200 


5601 




JMP I 


3754 


0201 


5774 




FSSERR 


3755 




0202 


• 202 




3756 




r.200 


chartAb 


■ .-? 


3757 


P1202 
(12«3 


4477 
7744 




4477J7744 


3758 


(5204 

(5205 


5177 

2651 




517712651 


3759 


0206 
("207 


4136 
2241 




413612241 


3760 


f2i.0 
0211 


4177 

3641 




4l77|364l 


3761 


(1212 
1*213 


4577 
4145 




4577|4145 


3762 


PI2i4 
(^215 


4477 
4044 




4477)4044 


3763 


0216 
fl2t7 


4136 
2645 




413612645 


3764 


C??0 
?'2?1 


3^177 
771P 




1077J7710 


3765 


Pt?22 
(^223 


7741 

.'041 




774110041 


3766 


3??4 
C1225 


4142 
4076 




4142140X6 


3767 


«»226 
(1227 


3077 
4324 




107714324 


3768 


0230 
P231 


"177 

:i301 




017710301 



23106 PACE 1-73 



.*! 



/ 



rOCLl2 


''• 


r^ULif V-' 


^'3 li;jAN-7l 


3769 


^32 


3J77 


30771773;" 




!»933 


773? 




3770 


?274 


3377 


3077)7726 




7i?35 


77C'6 




3771 


!^?36 


4177 


417717741 




B237 


7741 




3772 


fl?40 


4477 


447713044 




PI241 


3044 




3773 


!"242 


4276 


* 427610376 




("243 


;376 




3774 


11244 


4477 


447713146 




(^245 


3146 




3775 


PI246 


5121 


512114651 




PI247 


4651 




3776 


Pi?50 


4040 


4040J4077 




C»251 


4377 




3777 


51252 


.177 


017717701 




(1253 


7701 




3778 


0254 


C176 


017617402 




C1255 


7402 




3779 


P256 


?677 


067717701 




ei257 


7701 




3780 


51260 


1463 


146316314 




("261 


6314 




3761 


PI262 


1-770 


077017007 




!?263 


7007 




3782 


P)264 


4543 


454316151 




0265 


6151 




3783 


0266 


4177 


417710000 




0267 


L'000 




3784 


0270 


1020 


102010204 




0271 


f'204 




3785 


0272 


i.'000 


0000J7741 




0273 


7741 




3786 


(5274 


23iJ0 


2000}2076 




0275 


2076 




3787 


0276 


1604 


160410404 




0277 


'/404 




3788 


0300 


■^000 


0000)0000 




0301 


; 000 




3789 


03K2 


7500 


7500)0000 




0303 


1:000 




3790 


0304 


7600 


7000)0070 




0305 


; 073 




3791 


0306 


7624 


7624)2476 




0307 


2476 




3792 


0310 


5721 


5721)4471 




0311 


4671 




3793 


0312 


6661 


6661)4333 




0313 


4333 




3794 


0314 


5166 


5166)0526 




0315 


i526 




379S 


'"316 


7000 


7000)0000 




0317 


■•000 




3796 


0320 


3600 


3600)0041 



23106 PACE 



? 



# 



^ 



/F0CL12 


.^7 


"ML 




.■"??! 


^141 


3797 


i'?22 


4ll.'" 




"323 


. 036 


3798 


???4 


2.'52> 




M25 


, as."! 


3799 


?i3?6 


, 4P4 




?327 


. 437 


38?0 


.^333 


-5 1)0 




C331 


v306 


38E1' 


. t'332 


■404 




■ ?333 


• 4v^4 


38?2 


"334 


:.'0C1 




?335 


.■0Pi9i 


38B3 


{5336 


c 6(?l 




?337 


4030 


3804 


{^340 


4536 




PI341 


3651 


3805 


Pf342 


2101 




^3«3 


a77 


3806 


P344 


4523 




0345 


2151 


3807 


("346 


4122 




£934 7 


2651 


3808 


PI350 


2414 




P»351 


J477 


3809 


t^352 


5172 




0353 


£651 


3810 


PI354 


1506 




0355 


4225 


3811 


0356 


4443 




(^357 


6050 


38l2 


{»360 


5126 




?)361 


2651 


38l3 


5)362 


5122 




0363 


3651 


3814 


0364 


2200 




0365 


.^l500 


3815 


(1366 


4601 




0367 


L'300 


3816 


(?I370 


13PC 




PI371 


4224 


3817 


0372 


1212 




0373 


1212 


38l8 


1^374 


2442 




0375 


■.1010 


38l9 


0376 


4320 




037> 


2255 


3820 






3321 




l'^00 


3622 






3823 






3924 






3825 






3826 






3827 


ieae 


.•J000 



23106 PAGE 1*72 



V^?3 H-JaN-71 

«li30|0036 
2050;005O 
^ 04?4|0437 
3500I00Z6 
0404)0404 
000110000 
060114030 
4536)3651 
2101)0177 
4593)2151 
4122)2651 
2414)0477 
5172)0651 
1506)4225 
4443)6050 
5126)2651 
5122)3651 
2200)0000 
4601)0000 
1000)4224 
1212)1212 
2442)0010 
4020)2055 



/40,3-777 ARE CHARACTER DISPlAV AREA 

• 1J0?| 
/ 

/GET Right hand side • used in 

/PROCESSING OF COMMANDS <LlBRJ WHICH NEED 
/A riLC NAME) EXPECTS ThB roRM FILE, UNIT 
/ 

cetrhs; 



y 



/FOCtlZ 


31^B 


uULlS 


V-1S13 


11"JAN" 


71 


3328 


laJi 


3675 




OCA 


I 


PLEFLAG 


3829 


ifi^2 


l322 




TAO 




PLNAME 


3332 


i\?P3 


3dll 




DCA 




BLK2 


3831 


1384 


i326 




tAO 




07770 


3932 


lt?P5 


3012 




OCA 




9LK2*1 


3833 


i?j!6 


l324 


PlLPlt 


TAD 




077 


3834 


1P!?7 


3411 




DCA 


I 


eLK2 


3835 


iei0 


2012 


\ 


ISI 




8LK2*1 


3836 


tail 


5236 




JMP 




PLLPl 


3837 


I0l2 


l322 




tAO 




PLNAME 


3836 


1013 


3^11 




DCA 




BLK2 


3839 


1014 


l326 




TAD 




07770 


3840 


i/!i5 


3212 




DCA 




eLK2*l 


3841 


i?i6 


4333 


PLLP2I 


JMS 




CGET 


3842 


1017 


5236 




JMP 




I60TIT 


3643 


iV20 


5330 




JMP 




RHSERR 


3844 


i(»2l 


l324 




AND 




077 


3845 


ti322 


1277 




TAD 




M43 


3846 


1023 


7453 




SNA 






3847 


1?!24 


5261 




JMP 




NUMSCN 


3648 


1025 


l300 




tAD 




PP43 


3849 


1026 


3411 




OCA 


I 


BLK2 


3850 


1027 


2212 




ISi 




BLK2*1 


3851 


1330 


5216 




JMP 




PLLP2 


3852 


1031 


4333 




JMS 




CGCT 


3853 


1032 


5236 




JMP 




ICOTIT 


3854 


1033 


5330 




JMP 




RHSERR 


3655 


1034 


7200 




CLA 






3856 


1035 


5231 




JMP 




.-4 


3857 


1036 


l322 


icotit; 


tAO 




PLNAME 


3858 


1037 


3011 




OCA 




SLK2 


3859 


1(140 


1327 




TAO 




C7774 


3860 


i?!4i 


3012 




OCA 




BLK2*1 


3861 


1042 


l322 




TAD 




PLNAME 


3862 


1043 


3013 




OCA 




BLK2*2 


3663 


1P44 


1411 


PLLP3I 


TAO 


I 


8LK2 


3664 


1045 


7106 




CLL 


RTL 




3865 


1046 


70C6 




RTL 






3866 


1047 


7^06 




RTL 






3867 


1050 


1411 




TAO 


I 


eLK2 


3868 


1(?51 


3413 




OCA 


I 


BLK2*2 


3869 


1052 


2312 




ISi 




BLK2*1 


3870 


1?53 


5244 




JMP 




PLLP3 


3871 


1054 


7326 




CLA 


CLL 


CML RTL 


3872 


1055 


3376 




OCA 




LNAME*4 


3873 


1056 


43in 


mORnum. 


JMS 




OCTNUM 


3674 


li'<57 


560? 




•JMP 


I 


GETRhS 


3675 


U^60 


5330 




JMP 




RHSERR 


3676 






/ 








3677 






/SCAM OFF THE NUMBER » 


3878 






/WMlCH 


SAYS 


IT 


WAS A NU 


3879 






/ 








3880 


1061 


lt'l2 


NUMSONi 


TAO 




BLK2*1 


38 81 


1362 


l323 




TAD 




010 


3882 


1.843 


7653 




SNA 


CIA 





23136 PACE U 



/- 




^ ^ 



/FOCLlg 


37 


riALio 


^■"3 


11-JAN* 


71 2310 


3883 


i;'64 


43C1 




jMi; 


OCTNUM 


3884 


1<i65 


?33C' 




j'.P 


RHSERR 


3885 


1.^66 


l371 




TAO 


LNUH 


3886 


11^67 


7545 




OCA I 


P5LNAM 


3887 


i'jia 


1276 


\ 


TAO 


FLACJ 


3688 


ian 


3675 




OCA I 


PLEFLAC 


3889 


1PI72 


7240 




CUA CMA 




3690 


1073 


3546 




OCA I 


P6LNAM 


3891 


1074 


5256 




JMP 


MORNUM 


3892 


. 1075 


1462 


PLErLAC 


.LEFLAC 




3893 


1376 


5265 


flagji 


lEFLAC* 


34177*5200 


3894 


1077 


7735 


M43, 


-43 




3895 


1100 


c»a43 


PP43, 


43 




3896 


llfl 


r000 


octnum; 







3697 






/ 






3698 






/SUBR TO GgN AN 


OCTAL Number 


3899 






/ 






3900 


1102 


3371 


PLUP4» 


OCA 


LNUM 


3931 


1103 


4333 




JMS 


CCET 


3902 


1104 


2301 




ISi 


OCTNUM 


3903 


1105 


5701 




JMP I 


OCTNUM 


3904 


1106 


>324 




AND 


077 


3905 


1107 


1325 




TAD 


07710 


3906 


1110 


>15!0 




CUL 




3907 


illl 


1323 




TAO 


010 


3908 


1112 


3333 




OCA 


CGET 


3909 


1113 


7420 




SNL 




3910 


1114 


5330 




JMP 


RHSERR 


3911 


1115 


1371 




TAD 


LNUM 


39l2 


7ll6 


7106 




CLL RTL 




39i3 


ill 7 


7104 




CLL RAL 




39l4 


1120 


1333 




tAO 


CCET 


39l5 


1121 


53n2 




JMP 


PLLP4 


3916 


1122 


1171 


PLNAMEi 


LNAME-1 




3917 


1123 


paia 


010. 


10 




39l8 


1124 


1077 


077. 


77 




39l9 


Ii25 


7710 


07713. 


7710 




3920 


1126 


7770 


077701 


7770 




3921 


1127 


7774 


07774. 


7774 




3922 


1130 


62i'3 


rmscrR) 


6203 


/RlC 


3923 


1131 


5732 




JMP I 


,*1 


3924 


1132 


6357 




LERR 




3925 


il33 


"001! 


CCET. 





/IMT 


3926 


1134 


62£'3 




6203 


/ 


3927 


Tl35 


5736 




JMP I 


.*1 / 


3928 


1136 


?564 




CCETX 


/ 


3929 


1137 


l354 


coetrEt 


.tAO 


07524 / 


3930 


1140 


745? 




SNA 




3931 


1141 


5733 




JMP 1 


CGET 


3932 


1142 


2333 




ISl 


CGET 


3933 


1143 


i355 




tAO 


07761 


3934 


1144 


745i3 




SNA 




3935 


il45 


5733 




JMP I 


CGET 


3936 


1146 


]356 




TAp 


056 


3937 


U47 


7450 




SNA 





PACE 1<74 



/RIGHT HAND SIDE ERROR 

/IMTERFACC WITH FIELD ZERO 
JMS CCET 
JMP <C0MMA> 

JMP <carrEt or semicolon> 
JMP <otheR(Char is in AC)> 



-' c- 



/F0CL12 



# 



PUL10 V.J03 



ii:jAS.7i 



231 a^ PACE 



3938 


1150 


5733 




JMP I 


CCET 




3939 


1151 


l357 




TAn 


n215 




3940 


1152 


2333 




IS2 


COET 




3941 


1153 


5733 




JHP 1 


CCET 




3942 


1154 


7524 


07524» 


7524 






3943 


1155 


7761 


077611 


7761 






3944 


1156 


t!356 


056, 


56 






3945 


1157 


.215 


0215. , 


215 






3946 






/ 








3947 






/srimGs 


MILDRED 


INTO COsE 




3948 






/ 








3949 


116?! 


: 000 


lomilo; 









3950 . 


1161 


6^102 




lor 






3951 


1162 


4540 




JMS 1 


X7774 




3952 


1163 


1165 




MLOBLK 






3953 


1164 


576B 




JMP I 


LOMILO 




3954 


il65 


vll» 


mloblk; 


110 






3955 


1166 


V.030 




30 






3956 


1167 


v«076 




76 






3957 


1170 


C002 




2 






3958 




1171 


«1171 








3959 


1171 


c'0a0 


imn. 





/,— i-,: 




3960 


1172 


^000 


LNAMEi 


013)0101010 






1173 


l<000 












l^V 


V.000 












1175 


r-000 












1176 


^1000 












1177 


f000 










3961 


1200 


l-'000 


MVCTRi 









3962 


1201 


i.'000 


MVPTR» 





/,.-i-,;{REfrERENCEO AS 


A BLOCK 


3963 


1202 


7240 


lchain; 


CLA CMA 






3964 






/ 








3965 






/LIBRARY LOAD 






3966 






/ 








3967 


1203 


3147 


LLOAOi 


OCA 


CHrLAG 




3968 


12H4 


4543 




JMS I 


PGETRHS 




3969 


1205 


4544 




JMS I 


PLOMILD 




3970 


1206 


4342 




JMS 


LUKUP 




3971 


1207 


l546 




tAO 1 


P6LNAM 




3972 


1210 


7341 




CIA 






3973 


1211 


l327 




tAO 


LLENGTH 




3974 


1212 


7640 




S2A CLA 






3975 


1213 


5356 




JMP 


riLERR*2 




3976 


1214 


l542 




TAD I 


PLNUM 




3977 


1215 


3324 




DCA 


lsblk 




3978 


1216 


l545 




tAO i 


PSLNAH 




3979 


1217 


3326 




OCA 


FILSTRT 




3980 


1220 


4540 




JMS I 


X7774 




39SI 


1221 


1324 




LSBLK 






3962 


1222 


7353 




CLA CLL 


CMA RAR 




3993 


1223 


33115 




OCA 


XRl 




3984 


1224 


3410 




TAD I 


XRl 




3985 


1225 


1174 




tAO 


07420 /riRST WD MUST 


BE 0360 


3986 


1226 


7648! 




SZA CLA 






3987 


i^Z? 


5356 




JMP 


FILERR*2 





m m #) 



'rOCLl2.?7 ■■ULlf' v.'03 lUJt^'irJi 23136 PACE 1-76 

3938 i??.-' )3;'4 "^Ac UOADJ 

3999 1231 4262 -"'^S »0Q 

3990 1232 =254 JHP XCETOUT 

3991 / V . 
39,92 /LIBRARY SAVE 

3993 / 

3994 1233 3147 lSAvEi OCA CHFLaC 

3995 1234 4543 JMS I PGETRHS 
3996' • 1235 4544 JMS I PLDMILD 

3997 ' 1236 l327 TAD LLEMGTh 

3998 1237 3546 OCA I P6LNAM 

3999 i24£l 4361 JMS REPLACE - 

40B0 1241 1542 TAD I PLNUM 

4001 1242 3324 DCA LSBLK 

4002 1243 l545 TAD 1 PSLNAM 

4003 1244 3326 DCA FUSTRT 

4004 1245 7353 CLA CLL CMA RAR 

4005 1246 3010 OCA XRl 

4006 1247 1007 TAO 0360 

4007 1250 3410 OCA I XRl 

4008 1251 4262 JMS MOO 

4009 1252 4541 JMS 1 X7775 

4010 1253 l324 LSBLK 

4011 1254 6233 XGET0UTi62a3 

4012 1255 6031 ION 

4013 i256 2147 1S2 CHFLAG 

4014 1257 5722 JMP I PSTART 

4015 1260 5661 JMP I ,*l • 

4016 1261 P603 COtO 

40^8 /THE WORDS ARE REAO/wRlTTEN FROM LOC 4000 

4219 /or FLDII this ROUTINE MOVES THEM THERE 

4020 / 

4021 \262 ''300 MOOi 

4022 1263 3306 OCA DEJUMP 

4023 1264 i330 TAD PTBL 

4024 1265 3200 OCA MVCTR 

4025 1266 16O0 MOOLUP; tAO I MVCTR 
4326 1267 2200 IS2 MVCTR 

4027 1270 7450 SNA 

4028 1271 5275 JMP MOOEND 
402» 1272 3201 DCA HVPTR 

4030 1273 43JI5 JMS mOVMOV 

4031 1274 5266 JMP MOOLUP 

4032 1275 3323 MOOENOi TAD MVCNT 

4033 1276 32«0 DCA MVCTR 
4C34 1277 22i?l ISZ mVPTR 
4235 T300 4305 JMS MOVMOV 

4036 i3?l ?2O0 ISi MVCTR 

4037 13C2 5277 JMP ,»3 

4038 13?3 5662 JMP I MOO 

4039 1304 5314 LOADJi JMP . NOTSAV 
4043 i3Ci5 .:0eei flOVMOV; 



4?43 

4044 

4345 

4046 

4347 

4248 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

42556 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 

4365 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4050 

4081 

4082 

4083 

4084 

4085 

4086 

4067 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 



rlALlC V.'3 



ll-JAN-71 



23104 page: 



i3ie 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1320 

1321 

1322 

1323 

1324 

1*325 

1326 

1327 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1340 

1341 



1361 
1362 

1363 
1364 
1365 
1366 
13*7 



:6n 

6211 
?4i; 

57^15 
6211 

62>31 
36iU 
6211 
5735 
177 
6366 

-'030 
I 0S<3 
v'004 
1331 
0035 
:)4ic 

i.'4xi 

»'4l2 

C'-060 

fc013 
3206 

?000 



1342 


?'000 


1343 


6141 


1344 


r<6d6 


1345 


1020 


1346 


1171 


1347 


6320 


1350 


7354 


1351 


t'002 


1352 


72irf0 


1353 


5742 


1354 


;1002 


1355 


72i50 


1356 


62^13 


1357 


5760 


1350 


2571 



;'f00 

6141 

.636 
1020 
1171 
6022 
7372 



XRl 
MOVMOV 

XPl 

MVPTR 

MOVMOV 



/■14000 



TAD I MVPTS 
6211 
DCa I 
JMP I 
NOTSAV, 6211 
TAO 1 
6201 
V DCa I 
6211 
JMP 1 

pstart, start 

MVCnTi rRST«FEXP 
LS8lk» 
30 

riLsrRf.0 

LLeMGTH.4 
PTBl. ,*i 

BOTTOM 

pPnem 
prx 

PF2 

B'JFR 

LASTV 

POlXR 

FRST 


/ 

/uses MILDREDS LOOKUP 
/ 



LUKUPi 





6141 

0606 

1020 

LNUM 

6020 



/LINC 
/LIF 6 
/LOA I 

/JMP 20 



FlLERR<1777*6000 



filerr; 



0002 
CLA 
JMP I 
0002 
CLA 
6203 
JMP I 
ERRFIL 



/POP 

LUKUP ■ 
/POP 

/CIF CDF 



/USES MILDREDS REPLACE 

/ 

REPLACP,? 

LINC 

LMOOE 

LIF 6 

LDA I 

LNUM 

JMP 22 

JMP SAMEN 



/ALREADY THERE 



/ 



m 



iD 



€^ 



/F0CL12 


■S7 


;:IAL1' 


Vt".::^ 


11-JAN» 


71 23106 PACE l''7S 




<?96 


1 37? 


7354 




JM» 


FILERS /NOT ENUr ROOM 




4099 


1371 


7375 




J'1P 


enrepl 




^idZ 


13 72 


.6?6 


SAMfjM 


Lir 


6 




41J-1 


1373 


6324 




JMP 


24 




4102 


1374 


7354 


\ 


JMP 


FILERR /NOT ENUr ROQMJ SHOULD KiCT 


HAPPEN 


4103 


1375 


.232 


ENREPL, 


POP 






4104 








PMODE 






41.15 


1376 


72.:'e 




CLA 






4106 


13^7 


5761 




JMP I 


REPLACE 




4107 ■ 




i4,je 


#14^3 








4108 


14?? 


7524 


mI.MCmAI 


«254 






4139 


i4?l 


'366 


PCHA9» 


CHAR 






4110 


i:4?2 


3157 


LMAkEi 


OCA 


iiYTMP2 /LIBRARY HAKE , 




4111 


i4?3 


6231 




6201 






4U2 


1404 


1601 




TAO I 


PCHAR 




4113 


1405 


6211 




6211 






4114 


1406 


i200 




TAD 


M.INCMA 




4115 


1407 


7640 




SiA CLA 






4116 


1410 


5623 




JMP I 


PRHSERR 




4117 


1411 


4543 




JMS I 


PGETRHS 




4U6 


1412 


4544 




JMS 1 


PLDMILD 




4119 


1413 


1157 




TAD 


MYTMP2 . 




4120 


1414 


3546 




OCA I 


P6LNAM 




4121 


1415 


4555 




JMS I 


PREPLAC 




4122 


1416 


6223 


LXIT. 


6203 






4123 


1417 


6001 




IOm 






4124 


1420 


5621 




JMP I 


PPROC 




4125 


1421 


i?611 


PPROCi 


PROC 






4126 


1422 


1133 


PCEtC# 


CGET 






4127 


1423 


1130 


prhscRr 


.RHSERR 






4126 


1424 


7510 


075101 


7510 






4129 


1425 


t'010 


ooie. 


10 






4130 


1426 


7455 


MCSi 


"323 






4131 


1*427 


t^012 


CSMCii 


323<31i 






4132 


1430 


v^ass 


CIMCPi 


311-306 






4133 






/FILTAB 


ENTRY ■ 


TYPE 




4134 






/ 




LENGTH 




4135 






/ 




UNIT 




4136 






/ 




FIRST Block 




4137 






/WHERE 


TYPE 


• UNDEFINED 




4138 






/ 




1 ■ UNSlGNEDa WD) 




4139 






/ 




2 • SICNED{2 WO) 




4140 






/ 




3 » FLOATING P0I\?(3 WO) 




4141 


1431 


4 3f2 


LOPENi 


■jMS 


COMSUB /LIBRARY OPEN 




4142 - 


1432 


4622 




JMS I 


PGETC 




4143 


1433 


5236 




JMP 


.*3 




4144 


1434 


7?0f 




NOP 






4145 


14 35 


5257 




JMP 


ERXIT 




4146 


1436 


4366 




JMS 


GETCX 




414 7 


1437 


.1226 




tAD 


MCS 




4148 


144 3 


7450 




SNA 






4149 


1441 


5251 




JMP 


ITSSS 




H50 


1442 


1227 




tAO 


CSMCl 




im 


^ t1| 


7153 




SN* 


:■'!■! 




^1^^ 






ii-iH 





/P0CL12 


'• 


rlALi^ 


v'.'s 


11-JA\ 


'71 


4153 


^4 5 


i23P 




TAD 


ciMcr 


4154 


1446 


764V' 




52* CL' 


k 


4155 


1447 


5623 




JMP I 


3QhiSER» 


4156 


i'45a 


7Jli?l 


iTsrpi 


lAC 




4157 


1451 


7 3i?l 


ITSSSi 


lAC 




4158 


1452 


7001 


ITSII. 


lAC 




4159 


1493 


3157 




OCA 


MYTVP2 


4160 


14?4 


4622 




JMS I 


PGETC 


4161 


1455 


5261 




^ JMP 


1*4 


4162 


1456 


7ag» 




NOP 




4163 


1457 


72^0 


Ef^XlTi 


CLA 




4164 


1463 


5623 




JHP I 


PPHSERR 


4165 


1461 


4543 




JMS I 


PCCTRHS 


4166 . 


14 62 


('030 


leflac, 


3 


/«0R JMP 


4167 


1463 


4544 




JMS I 


plomilo 


4168 


T464 


4553 




JMS I 


PLOOKUR 


4169 


1465 


1157 




TAD 


MYTMP2 


4170 


1466 


3556 




OCA 1 


"YTEMP 


4171 


1467 


2156 




IS2 


MYTEMP 


4172 


14 70 


l546 




TAD I 


P6LNAM 


4173 


1471 


3556 




OCA I 


MYTEMP 


4174 


1472 


2156 




ISZ 


MYTEMP 


4175 


1475 


1542 




TAD I 


PLNUM 


4176 


1474 


3556 




OCA I 


MYTEMP 


4177 


1475 


2156 




IS2 


MYTEMP 


4178 


1476 


1545 




tAO I 


P5LNAM 


4179 


1477 


3556 




OCA I 


MYTEMP 


4180 


1500 


5216 




JMP 


lxit 


4181 


1501 


7472 


074721 


7472 




4182 






/ 






4183 






/SCANS 


OFF FN AND LEAVES 


4184 






/ 






4185 


1502 


''000 


COMsuBi 







4186 


1503 


4366 




JMS 


CETCX 


4187 


1504 


1301 




tAD 


07472 


4188 


15?5 


7650 




SNA CLA 


i 


4189 


1506 


4366 




JMS 


CETCX 


4190 


?537 


1224 




TAD 


07510 


4191 . 


1510 


7100 




CLL 




4192 


1511 


1225 




tAO 


0010 


4193 


1512 


7420 




snl 




4194 


1513 


5257 




JMP 


ERXIT 


4195 


1514 


7106 




CLL RTL 




4196 


1515 


1152 




TAO 


PFILTAB 


4197 


1.516 


3156 




OCA 


MYTEMP 


4198 


1517 


5702 




JMP 1 


COMSUB 


4199 






/ 






42?3 






/LIBRARY Close 




42?! 






/ 






42?2 


1520 


4302 


lclose; 


JMS 


COHSUB 


4233 


1521 


4622 




JMS I 


PGETC 


4234 


1522 


5623 




JMP I 


PRWSERR 


4205 


1523 


7410 




SKP 




4206 


1524 


5257 




JMP 


ERXIT 


4207 


1525 


3556 




OCA I 


MYTEMP 



231^6 PACE 



,*3 IF cetrhS Got a #) 



POINTER IN MYTEMP 



/F 



/ 



% ^ #3 

/F0Cl12..'<7 LlALir v^r? 11-JAN -71 23106 PAGE 1»8? * 

tSr^S 1526 6i5Ci2 I or 

42;^9 1527 l56^ J^S I PTIMIS^ 

4210 1533 73^7 CL4 CLL lAC HTl 

1211 1331 456?i JMS I PFINISm 

42l2 1532 5216 ■ JMP LXIT 

42i3 / 

4214 /FIlE variable LOAOE« 

4215 / 

4216 , 1533 -..3? 5? ITLOAO, Z 

42l7' 1534 4554 JMS 1 PCOMMflN 

42i8 / 

42i9 /VARIABLE is NOw IN mEM.^RYI LOSS 

4220 /POINT AT ITJ ONE OF THE FOLLOWING 3 CHOICES WILL 8E TAKENj ACCORDING 

4221 /TO TVpE 

4222 / 

4223 1535 5346 jwp IRETLO 

4224 1536 5341 JMP SRETLO 

4225 1537 i55l FRETlO. TA3 I LOSS 

4226 1540 2151 iSi LOSS 

4227 1541 3164 SRETLO; DCA lYACl 

4228 1542 l55l TAO I LOSS 

4229 1543 3165 DCA MYAC2 

4230 1544 2151 iSi LOSS 

4231 1545 5354 JMP CPCTLD 

4232 1546 l373 IRETlO, TA3 027 

4233 1547 3164 DC* MYACl 

4234 1550 l551 tAO 1 LOSS 

4235 1551 7710 SPA CLA 

4236 1552 7040 CMi 

4237 1553 3165 DCA MYAC2 

4238 1554 i55l CRETLOi tAO I LOSS 

4239 1555 3166 DCA MYAC3 

4240 1556 6203 6203 

4241 1557 1164 TAO MYACl 

4242 1560 3567 PCA I PIFLAC 

4243 1561 1165 TAO MYAC2 

4244 1562 3570 pCA 1 P2FLAC 

4245 i'563 1166 TAD MYAC3 

4246 1564 3571 OCA I P3FLAC 

4247 1565 5733 JMP I ITLOAD 

4248 1566 10 tit' CETCX» C 

4249 1567 4622 JMS I P5CTC 

4250 1570 .:'4'27 027, 27 

4251 1571 5623 JMP I PRHSERR 

4252 1572 5766 JMP I CETCX 

4253 lb<i^ •16?!P' 

4254 / 

4255 /SUSSCRIPTINC FOR FILE VAIABLES 

4256 /ENTER wITu FILE NO, JN AC 

4257 1603 .:!?/)?l COMMONi 

4258 16C1 ■376 AND 07 

^^59 i'6?2 7136 CLL «TL ^ 

Utd I6.:i3 U52 T*B Pfll-TAH '■ 

iiij_. hn Mil i^i m' 



/fOCLl2.; 

4263 

4264 
4265 

4266 
4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4332 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

43ll 

43l2 

43l3 

43l4 

4315 

4316 

4317 



DULIS' vri33 



li;jAN^71 



I6ri6 -■^150 DC* 

16*^7 i53i3 TAC 

1610 3151 DCi 

1611 6211 621J 

1612 l556 TAD 

1613 7650 SNA 

1614 5177 JMP 

1615 i556 -^ TAD 

1616 3011 OCA 

1617 1411 tAD 

1620 3011 OCA 

1621 3013 OCA 

1622 1011 PREOiV; tAO 

1623 7141 CLL 

1624 1150 tAb 

1625 7420 SNl 

1626 5232 jMP 

1627 3150 OCA 

1630 2013 IS2 

1631 5222 JMP 

1632 7200 OlVOiV; CLA 

1633 1172 tAO 

1634 3012 OCA 

1635 1151 OIVLUP; tAO 

1636 7104 CLL 

1637 3151 OCA 

1640 1150 TAO 

1641 7004 RAl 

1642 3150 OCA 

1643 1011 tAb 

1644 7141 CLL 

1645 1150 TAO 

1646 7430 S2l 

1647 3150 DCA 

1650 72l!'0 CLA 

1651 J.013 tAO 

1652 7004 RAl 

1653 3013 OCA 

1654 >430 S2L 

1655 5177 JMP 

1656 2012 1S2 

1657 5235 jMP 

1660 l556 TAb 

1661 2156 IS! 

1662 7<'4l CIA 

1663 3012 OCA 

1664 7410 SKP 

1665 2200 ISI 

1666 1150 tAO 

1667 2012 IS? 

1670 5265 JMP 

1671 3151 OCA 
1472 1013 tAO 

1673 7140 CLL 

1674 1556 TAD 



•^ISS 

1 psues 

LOSS 

I MVTEMP 

CIA 

FERROR 

I MYTEMP 
3LK2 
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